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16 
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19 ‘ 
2 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
21 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
22 EGUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
23 NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT 
4 

25 THE SOFTWARE DESCRIBED IN THIS DOCUMENT 1S FURNISHED UNDER A 
26 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
27 TERNS OF SUCH LICENSE. 

& 

29 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 

20 THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT 13 

31 NOT SUPPLIED BY DIGITAL. 
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ABSTRACT 


THIS PROGRAM IS INTENDED TO TEST ALL OF THE BASIC 
FUNCTIONAL LEVEL OPERATIONS OF THE TNOZ2-TU16/TE16 MAG 
TAPE SYSTEM. ALL FUNCTIONS; WRITE. READ, SPACE, 

ERASE, REWIND, ETC; WILL BE TESTED. IN ADDITION TO THE 
TMO2-TU16/TE16 TESTS, THE RH WILL BE TESTED SEPARATELY IN 
SO FAR AS IT IS POSSIBLE TO SEPARATE THE RH FROM THE 
TMO2-TU16/TE16 ITSELF. 


REQUIREMENTS (HARDWARE ) 


A. ANY POP-11 PROCESSOR - WITH OR WITHOUT A HARDWARE SWITCH REGISTER 
B. 8K OF CORE 

C. CONSOLE TTY 

D. TMOZ MAGTAPE CONTROLLER 

£E. MASS BUS CONTROLLER 

F. TU16 OR TE16 MAG TAPE TRANSPORT 


LOADING PROCEEDURE 


USE STANDARD BINARY LOADING PROCEEDURE 
STARTING PROCEEDURE 


XXKFSOFTWARE SWITCH REGISTER 1S LOCATED AT LOC. 176(REFER TO SECTION 5 FOR MORE 
THERE ARE TWO (2) STARTING ADDRESSES THAT MAYBE USED: 200(8) AND 210(8) 


A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE THE PROGRAM 
IDENTIFICATION TO BE PRINTED FOLLOWED BY 
REQUESTS FOR THE VARIOUS PARAMETERS NEEDED 
BY THE PROGRAM 


B. 210(8): THIS ADDRESS 1S INTENDED FOR USE AS A RESTART ONLY 
AND WILL USE THE CURRENT PARAMETER VALUES. 
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31 4.1 SAMPLE START AT 200(8): OPERATOR RESPONSES ARE IN PARENS 

93 KXXSWR=EXXXXXX NEW WILL BE FRINTED FIRST IF SOFTWARE SWITCH REGISTER IS SELEC 
94 (REFER TO SECTION 5 FOR OPERATOR ACTION) 

95 TMO2-TU16/TE16 BASIC FUNCTION TEST 

. ENTER CONDITIONS IN OCTAL 

98 REGISTER START: 172440 (CR) 

99 VECTOR: 224 (CR) 

100 DRIVE NUMBER: O (3) 

101 SLAVE NUMBER: 0 (6) SERIAL NO: 200 

102 RH11 OR RH70: (0) 

103 RH ONLY: (0) 

104 NRZ ONLY: (1) -NRZ (NON-RETURN-TO ZERO) IS THE METHOD OF RECORDING 

om ON MAGNETIC TAPE. 

106 

107 THIS EXAMPLE SLOWS THE PROGRAM START USING THE RH11 

108 ADDRESS (CS1) OF 172440, AN INTERRUPT VECTOR OF 224, 

109 DRIVE NUMBER 3, AND SLAVE NUMBER 6, NRZ ONLY 

110 ‘ NOTE THAT THE CURRENT VALUES FOR EACH PARAMETER IS 

111 PRINTED AND MAY OR NOT BE CHANGED 

112 
113 XXKIF THE SOFTWARE SWITCH REGISTER 1S SELECTED THE FIRST TYPE OUT WILL BE 
114 AS FOLLOWS: SWR=XXXXXX NEW= 

115 THIS WILL BE TYPED OUT BEFORE THE HEADER MESSAGE (REFER TO SECTION 5 FOR 
116 A MORE DETAIL DESCRIPTION FOR OPERATOR ACTION. ) 
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+t: (PAGE 2) 

7 5. CONSOLE SWITCH SETTING 

122 

123 IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

124 REGISTER THEN A SOFTWARE SWITCH REGISTER 1S USED WHICH ALLOWS 
125 THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
126 IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
127 AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 

izs REGISTER (.0C. 176) IS USED 

129 ‘ 

130 

i! | CONTROL: 

132 

133 ; THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
134 REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 

‘= DOING THE FOLLOWING: 

1 

137 1) TYPE CONTROL G < G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 

= : LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM: 1.€. SCOPE ROUTINE AND AFTER 
1 

140 2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX |S THE OCTAL CONTENTS 
141 OF THE SOFTWARE SWITCH REGISTER. ) 

142 

143 3) AFTER THE ‘'NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 

144 OF THE FOLLOWING AT THE TTY 

145 

146 A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
147 (ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
148 WILL BE ALLOWED) 

149 IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 

150 REGISTER CONTENTS WILL NOT BE CHFINGED. 

151 

152 B) IF A CONTROL U < U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
153 BACK TO STEP 2 

154 

155 
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SEQ 0006 


ALL SWITCHES EXCEPT 5-9 ARE USED AND THE NORMAL, OR DEFAULT, 

RUN 1S DONE WITH ALL SWITCHES SET TO ZERO (0). 

ALL HARDWARE SWITCHES ARE DYNAMIC, AND MAY BE CHANGED AT ANY TIME. 

XXXBUT, THE SOFTWARE SWITCH REGISTER CAN ONLY BE LOADED DYNAMICALLY 
AS STATED ABOVE UNDER CONTROL HEADING 


$W15(100000): 1=HALT ON ERROR 

O=CONT I NUE 
SW14 (040000): i pel a (SCOPE: RH TESTS ONLY) 
$W13(020000): 1:00 NOT PRINT ERRORS 

H=PRINT ALL ERRORS 


SW12(010000): 1=INHIBIT ITERATION 
O=D0 ALL ITERATIONS PER TEST 


$W11(004000): 1=CONTINUOUS CYCLE 
O=HALT AT END OF PASS 
S$W10(00200?:: 1=HALT AT END OF CURRENT TEST 
O=CONTNUE 
SW9-5: N/A 
SW4 -0: SELECT TEST NUMBER: : OO=ALL TESTS 


THE USE OF SWO-4 IS TO ALLOW SELECTION AND CONTINUOUS 


“ EXECUTION OF ANY TEST. THE TEST SELECTION MAY BE CHANGED AT 


ANY TIME, HOWEVER IT 1S ADVISABLE TO USE SW10 TO STOP THE 
PROGRAM AT THE END OF THE CURRENT TEST BEFORE CHANGING NUMBER. 
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(PAGE 3) 
ERROR PRINTOUTS 


THE ERROR PRINTOUTS FOR EACH TEST WILL APPEAR IN THE SAME 

GENERAL FORMAT. THE FIRST LINE WILL ALWAYS SHOW THE TEST NUMBER AND ITS 
TITLE. THE SECOND LINE WILL BE AN EXPLANATION OF THE ERROR. THE 
FOLLOWING LINES WILL SHOW THE APPROPRIATE REGISTER OR ADDRESS 

VALUES THAT ARE APPLICABLE TO THE INDIVIDUAL TEST 


EXAMPLES: 


1. THIS EXAMPLE SHOWS A TYPICAL ERROR PRINTOUT FOR THE WRITE 
READ TEST: A WRITE CRC ERROR OCCURRED ON SLAVE 6. 


FT13: WRITE-READ TEST 
WRITE ERROR NRZ 


CS1 WC BA FC CS2 DS ER TC 
144260 O00000 015650 000000 000103 150600 100000 101306 


2. THIS EXAMPLE SHOWS A TYPICAL SPACE ERROR: 
THE FC 1S NOT ZERO AT THE END OF THE OPERATION 


FT14: SPACE TEST 
SPACE REVERSE ERROR NRZ - 
A 


CS1 WC CS2 DS ER TC 
144230 177700 017162 177746 000114 150600 901000 161700 


3. THIS EXAMPLE SHOWS A SPACE OPERATION WHICH RESULTED IN 
INCORRECT POSITIONING. SHOULD BE AT RECORD 20, IS AT RECORD 22 


FT14: SPACE TEST 
POSITION ERROR: 
REVERSE ERROR EXPT: 20 RCD: 22 


‘ 
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219 (PAGE 4) 

220 

24 7, OPERATION 

ot Sp | ERR TA ie 0 eae 

223 

224 THE PROCEEDURES FOR OPERATING THIS PROGRAM ARE QUITE SIMPLE 
225 AND REQUIRE ONLY A FEW STEP: 

22? 1. LOAD ADDRESS 200 OR 210 

228 2. SET SWITCHES FOR DESIRED TEST CYCLE 

229 HHKXREFER TO SECTION 5 FOR DYNAMIC LOADING 

230 OF SOFTWARE SWITCH REGISTER. xxx 

231 3. PRESS START 

232 4 ENTER APPROPRIATE RESPONES TO THE TTY REQUESTS 
224 ALL HARDWARE SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY 
235 TIME. THE NORMAL, OR DEFAULT. OPERATING SEQUENCE 1S ALL 

236 SWITCHES DOWN (ZERO). THE END OF EACH PASS IS NOTED BY A 
237 MESSAGE STATING END OF PASS AND THE NUMBER OF THAT PASS. 
238 XXXKXFOR THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER REFER TO SECTION 5 
239 

240 SINGLE TEST SELECTION: (SWO-SW4) 

41 

242 WHEN SWO-4 ARE SET TO ZERO (00) THE SCHEDULAR WILL 

243 EXECUTE ALL OF THE TESTS IN SEQUENCE (1-24). IF SWO-4 IS 
244 SET TO SOME SPECIFIC TEST NUMBER (1-24) THAT PARTICULAR TEST 
245 WILL BE EXECUTED CONTINUOUSLY. ANY TEST MAY BE SINGLE 

246 SELECTED IN ANY ORDER: HOWEVER, THE BEST WAY TO AFFECT 

24? THE CHANGE 1S TO USE SW10 TO HALT THE CURRENT TEST, THEN 
248 CHANGE NUMBER AND PRESS CONTINUE 

249 

250 RH11 OR RH70 OPTION: 

251 
252 A ONE RESPONSE 1S FOR THE RH70; 

253 A ZERO RESPONSE 1S FOR THE RH11. 

254 

255 RH ONLY OPTION: 

256 
267 BY RESPONDING TO THE REQUEST (RH ONLY: ) WITH 

268 A ONE (i), ONLY THE TESTS WHICH ARE POINTED TO 

259 THE RH (TESTS 1 - 10) WILL BE EXECUTED IN 


Ze0 EACH PASS. 
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261 (PAGE 5) 
263 8. TEST DESCRIPTION 

264 meme nnen 

265 

266 THE FOLLOWING 1S A LIST OF ALL TESTS IN THEIR PROPER SEQUENCE. 
267 A BASIC DESCRIPTION OF EACH TEST IS PROVIDED TO AID IN UNDERSTANDING 
268 OF THE ERROR MESSAGES ASSOCIATED WITH EACH ONE 

270 A. RH TESTS: THE FIRST TEN (10) TESTS WILL PERFORM BASIC RH 
271 OPERATIONS AS FAR AS IS POSSIBLE WITHOUT REQUIRING 
272 THE TMO2-TU16/TE16 ITSELF. (SEE RH ONLY OPTION; PAR 7) 
274 FT1: RH ADDRESSING: THIS TEST WILL ASSURE THAT THE 

275, RH WILL RESPOND WITHOUT CAUSING A BUS 
276 TRAP TO ALL TMOZ REGISTER ADDRESS 

27 IN SEQUENCE STARTING AT THE ADDRESS 

278 OF CS1 ENTERED BY THE OPERATOR. 

280 FT2: RH REGISTER BITS READ/WRITE: THIS TEST WILL ASSURE THAT 
281 ALL BITS OF THE RH WRITE/READ REGISTERS 
282 CAN BE SET AND RESET. 

284 FT3: RH INITIALIZE: THIS TEST WILL ASSURE THAT A RH INITIALIZE 
285 (BIT 5 OF CS2=1) WILL INDEED CLEAR 

286 THE RH ERRORS. 

287 

288 k FT. SILO TEST 1: THIS TEST WILL ASSURE THAT A READ FROM 
289 AN EMPTY SILO WILL CAUSE DLT TO SET 

290 

291 x FTS: SILO TEST 2: THIS TEST WILL ASSURE THAT BOTH THE 

292 IR AND OR BITS WILL CORRECTLY RESPOND 
293 TO LOADING OF THE SILO WITH ALL ZEROS 
294 AND THEN A WORD OF ALL ONES. 

295 a 

296 * FT6: SILO TEST 3: THIS TEST WILL WRITE AND THEN READ 

297 THE ENTIRE SILO TO ASSURE THAT DATA CAN 
298 BE PROPERLY FILLED AND READ. ALSO THE 
299 PROPER STATUS OF IR AND OR ARE CHECKED. 
300 

301 ¥ FT7: SILO TEST 4. THIS TEST WILL ASSURE PROPER RH11 

302 RESPONSE TO SILO OVERFLOW. 

303 

304 x FT10: SILO TEST 5: THIS TEST WILL ASSURE SILO RESET 

305 BY RH11 INITIALIZE. 

306 

307 444k NOTE. SILO TESTS (FT4-FT10) ARE FOR THE RH11 ONLY. *x4x% 
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311 B. TMO2-TU16/TE16 BASIC FUNCTIONS: THE FOLLOWING FOURTEEN (14) 

312 TESTS WILL ASSURE OPERATION OF THE 

fy MAG TAPE BASIC FUNCTIONS. 

315 FT11: NOP TEST: THIS TEST WILL ASSURE THAT THE NOP 

=: FUNCTION EXECUTES WITH NO ERROR. 

318 FT12: REWIND TEST: THIS TEST WILL ASSURE THAT THE REWIND 

319 FUNCTION WILL POSITION THE TAPE TO 

I BOT WITH NO ERROR. 

a . 

322 1. ISSUE A REWIND COMMAND 

323. 2. AWAIT PIP RESET (MOTION STOPPED) 

24 : 3. ASSURE THAT NO ERROR OCCURED 

32 4. END 

326 : 

32? FT13: WRITE/READ TEST: THIS TEST WILL ASSURE THAT 

328 THE UNIT UNDER TEST CAN WRITE AND 

4 Sey Pe READ IN ALL DENSITIES (FOR BOTH PE AND NRZ). 
331 1. REWIND TO BOT 

* 332 ~~ ® 2. WRITE 100 RECORDS 

333 A, ALL ONES DATA 

334 re B, 200 FRAMES 

335 C, 200 BPI; ODD 
336 3. CHECK FOR ERRORS ON EACH RECORD 

337 4 READ REVERSE THEN FORWARD ALL 100 RECORDS 

338 5. CHECK FOR ERRORS ON EACH RECORD 

339 ae 6. REPEAT STEPS 2 THRU 5 FOR 556, 800, 1600 BPI 

340 7. END. 
341 
342 DATA RELATED ERRORS (PARITY ERROR. CRC ERROR. ETC) ARE IGNORED. T 
343 DATA READ IS NOT CHECKED; ONLY THE FUNCTION IS TESTED, NOT THE M 
344 
wus > FT14: SPACE TEST: THIS TEST WILL ASSURE THAT PROPER 
346 eee POSITIONING 1S MAINTAINED BY BOTH 

347 : SPACE FORWARD AND REVERSE. 

348 . 
ug ; fe 1. REWIND TO BOT 
350 2. WRITE 100 RECORDS 
351 A. EACH RECORD 1S ONE FRAME LARGER THAN THE LAST 
352 THIS WILL ALLOW FOR POSITION CHECKING BY RECO 
353 3. EACH RECORD IS ERROR CHECKED. 
354 4. DATA RELATED ERRORS ARE iGNORED. 
355 5. NOW SPACE REVERSE 77 RECORDS AND 
356 READ REVERSE 1. THE FRAME COUNT 
357 SHOULD BE 100. 
358 THIS IS THE SIZE OF THE FIRST RECORD. 
359 6. NOW SPACE FORWARD 76 RECORDS AND READ 
360 FORWARD 1. THE FRAME COUNT SHOULD BE 177. 
361 THIS 1S THE SIZE OF THE NEXT TO LAST RECORD. 
362 7. CONTINUE THE SPACE AND READ (DECREMENTING THE RECORD 
362 UNTIL ALL POSITIONS HAVE BEEN CHECKED. IF POSITION IS 


364 8. REPEAT STEPS 1 THRU 7 FOR PE. 
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365 9. END 
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os (PAGE 7) 
270 . FT15: ERASE TEST: THIS TEST WILL ASSURE THAT THE ERASE 
re FUNCTION WILL INDEEC ERASE TAPES. 
373 1. REWIND TO BOT 
374 2. ISSUE 200 ERRASE COMMANDS. 
375 3. ASSURE NO ERRORS FOR EACH COMMAND. 
376 4. REWIND TO BOT. 
377 5. ISSUE A READ FORWARD COMMAND. 
378 6. THE TAPE SHOULD MOVE FORWARD UNTIL 
379 STOPPED BY OP! (APPROX 25 FT). 
380 7. ASSURE NO ERRORS OTHER THAN OPI. 
ot 8. END 
383 FT16: TAPE MARK WRITE/READ: THIS TEST WILL ASSURE THAT 
334 A TAPE MARK CAN BE WRITTEN AND READ 
mee IN BOTH PE AND NRZ. 
387 1. REWIND TO BOT. 
388 2. ISSUE A WRITE TAPE MARK COMMAND. 
389 3. ASSURE NO ERRORS. 
390 4. ASSURE THAT TAPE MARK STATUS IS SET 
391 IN DRIVE STATUS (BIT 2). 
392 5. READ REVERSE. 
393 6. ASSURE THAT TAPE MARK IS SET. 
394 7. ASSURE THAT NO ERRORS OTHER THAN FCE OCCURED. 
395 8. READ FORWARD. 
396 9. REPEAT STEPS 6 AND 7 
397 10. REPEAT STEPS 1 THRU 9 FOR PE. 
os 11. END 
99 
400 FT17: TAPE MARK SPACE TEST: THIS TEST WILL ASSURE THAT 
401 SPACING WILL BE TERMINATED BY RECOGNITION 
402 OF TAPE MARK BOTH IN PE AND NRZ. 
403 
404 1. REWIND TO BOT. 
405 2. WRITE THE FOLLOWING PATTERN OF 
406 TAPE MARKS AND DATA RECORDS: 
407 
408 TM. 20 RECS: TM: 40 RECS: TM: 60 RECS: TM: 100 RECS: TM: 
409 
410 3. ASSURE NO ERRORS. 
411 4. ASSURE THAT TAPE MARK STATUS IS SET FOR TM WRITES. 
412 5. NOW SPACE REVERSE 200 RECORDS. 
413 6. THE SPACE OPERATION SHOULD STOP ON EACH 
414 TAPE MARK IT FINDS. THEREFOR 5 SPACE 
415 COMMANDS ARE ISSUED TO COVER THE ENTIRE 
416 PATTERN WRITTEN ON TAPE. 
417 BOT SHOULD NEVER BE REACHED AND THE 
418 FRAME COUNT WILL REFELCT 
419 THE NUMBER OF RECORDS BETWEEN 
420 TAPE MARKS 
421 7. REPEAT STEP 6 IN THE FORWARD DIRECTION. 
422 8. ASSURE NO ERRORS OTHER THAN FCE 
423 9. REPEAT STEPS 1 THRU 8 FOR PE 
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424 10. END 
425 : 
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426 : 
nae: mA. (PAGE 8: 
429 ™ FT20: WRITE CHECK TEST: BOTH WRITE CHECK FCRWARD AND REVERSE ARE 
eee TESTED IN BOTH PE AND NRZ. 
432 1. REWIND TO BOT. 
433 2. WRITE A 4OO FRAME RECORD USING DATA 
434 PATTERN 3 (125125). 
435 3. ASSURE NO ERRORS OCCURED. 
436 4 ISSUE A REVERSE WRITE CHECK COMMAND. 
437 5. ASSURE NO ERRORS OCCURED. 
438 6 REPEAT STEP 5 FOR A FORWARD WRITE CHECK. 
439 7. REPEAT STEPS 1 THRU 6 FOR PE. 
te 8. END 
u 
4Y42 FT21: ERASE HEAD TEST: THIS TEST WILL ASSURE THAT THE 
_s ERASE HEAD ITSELF 1S OPERATING 
44y 
44s 1. REWIND TO BOT. 
446 2. WRITE 2 RECORDS OF 800(10) FRAMES 
447 EACH. EACH RECORD WILL BE 1 INCH 
448 OF TAPE. DATA IS NOT ALL ONES 
449 3. REWIND TO BOT. 
450 4. NOW WRITE A 400(10) FRAME RECORD 
451 THIS RECORD WILL BE ONE HALF 
452 INCH OF TAPE. THE ERASE HEAD 
453 SHOULD CLEAR THE REMAINDER OF THE 
454 FIRST RECORD (ONE HALF INCH). 
4ss 5. REWIND TO BOT. 
45e 6. NOW READ THE SHORT FIRST RECORD. 
457 1T SHOULD BE 400(10) FRAMES 
458 7. NOW READ THE SECOND RECORD. 
459 1T SHOULD BE STILL 800(10) 
460 FRAMES. 
461 8 IF THE SECOND RECORD IS TOO LONG. 
462 THE ERASE HEAD DID NOT FUNCTION OR 
463 1T 1S IN THE WRONG POLARITY 
4o4 10. END 
4oS 
466 
467 FT22: BUFFERED COMMAND: THIS TEST WILL ASSURE THAT THE 
408 TMOZ WILL ACCEPT AND EXECUTE ANOTHER 
469 COMMAND WHILE ITS SELECTED SLAVE IS REWINDING 
470 
471 1. REWIND TO BOT. 
472 2. ISSUE 3 LONG WRITE COMMANDS TO ASSURE 
473 BEING OFF BOT. 
474 3. ISSUE A REWIND COMMAND. 
475 4 AS SOON AS DRIVE READY BECOMES SET. 
476 ISSUE ANOTHER WRITE COMMAND. 
477 5. THE NEXT DRIVE READY SHOULD BE AFTER THE 
478 : TAPE HAS REACHED BOT AND EXECUTED THE 
479 BUFFERED WRITE COMMAND. 
480 6. ASSURE NO ERRORS OCCURED. 
481 7. END 
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483 
aa (PAGE 9> 
486 FT23: READ IN PRESET: THIS TEST WILL ASSURE THAT UNIT O 
48? 1S REWOUND AND SET TO 800 BPI NORMAL. 
= (ONLY IF SLAVE O IS SELECTED). 
490 1. ISSUE A WRITE COMMAND TO ASSURE 
491 BEING OFF BOT. 
492 2. ISSUE THE READ-!IN PRESET COMMAND. 
493 3. AWAIT MOTION STOP. 
494 ; 4. ASSURE THAT BOT WAS REACHED 
495 5. ASSURE THAT THE TAPE CONTROL REGISTER 
496 1S SET TO 800 BPI.,NORMAL. ODD. 
497 6. END 
498 
499 (THIS TEST 1S ONLY PERFORMED IF THE SELECTED SLAVE IS ZERO (0). 
500 - 
501 FT24: PEWIND: OFF LINE THIS TEST WILL ASSURE 
502 THAT THE UNiT WILL REWIND AND 
503 GO OFF LINE. (NOT IF IN CONTINUOUS CYCLE) 
504 
505 1. {!SSUE THE REWIND OFF-LINE COMMAND 
506 2. ASSURE THAT MOL (BIT 12 OF DRIVE STATUS) 
507 1S RESET INDICATING THE UNIT WENT OFF LINE. 
cos 3. END 
09 
510 (THIS TEST iS NOT PERFORMED WHEN CONTINUOUS CYCLE OPERATION IS S 
511 
512 
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514 9. LISTING 
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S16 & 

S17 

518 . TITLE CZTUBGO THOZ2 - TU16/TE16 BSC FC 

519 +22 - CZTUB-G-0 

520 315 AUGUST 1977 

521 +R. BARNES 

522 >REVISED APRIL .1976 BY S. CARPENTER 

523 ;REVISED NOV -1977 BY CLEM WALSH 

524 ; 1) SUPPORTS SOFTWARE SWITCH REGISTER 

co ‘ nt 2) SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 
2? 

52 

“4 > CONSOLE SWI TCHESKXKXKKKKX 

531 > SW1(100000): 1=HALT ON ERROR 

532 ; O=CONTINUE 

533 > SW14 (040000) 1=LOOP ON ERROR (SCOPE(O40000) RH TESTS ONLY) 
534 ; O=CONT I NUE 

535 +> $W13(02000): 1=D0 NOT PRINT ERRORS 

536 ; O=PRINT ERRORS 

537 ;$W12(010000): 1=INHIBIT ITERATIONS 

538 ; 0=D00 ITERATIONS 

539 >$W11(004090): 1=CONTINUOUS CYCLE 

540 ; O=HALT AT END OF PASS 

541 ina cemarsata 1=HALT AT END OF EACH TEST 

542 O=CONT INUE 

543 :SW WO-4: SELECT TEST NUMBER :: GO=ALL TESTS 

Buy : TU16/TE16 REGISTER BITSKXXXXXKXKX 

545 

546 715 7-14 713 712 511 510 709 ;08 -07 ;06 ;05 ;04 -03 -02 ;01 -00; 

547 3 MXMRRKXKXKKKKX KKK KKK KKK KKK KKK KKH KKK HK MK HK HK KH KKK KK KK HK KK KK KK KKK KKK KK, 

548 oC: i $C + TRE; MCP; SPR; DNA; PSL; A17;A16; ROY, IE + FUN, FUN; FUN; FUN; FUN; GO ; 

549 

550 | AXXKXKKXKAXKKXKAXKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KH KKK IKK 

551 ;WC: ; WORD F 

552 + COUNT 

553 MOOR KCKRH HIKER HHMI HHI ICM HM HMM IRDA 

654 >BA: ; BUS F 

555 + AODRESS 

556 HOAX HRCI HMC MIH IHN HMMM HICH OI 

557 4) ae os Z 

558 > COUN 

559 7 MX XXXKKKHHAKK HK KKK XXXXANAARRKKK AK KXXKXAARE 

560 ;CS2: DLT. WCE; UPE; NED; NEM; PGE; MXF ; aot ; OR 7 IR CLR, PAT; BAI; ;U2 ; (Ul *U0 ; 

561 ; ; ; , 

562 » RICH KIRK HHH IH KIA KOH KOHN HIM MMIII MII 

563 :DS: ;ATA: ERR: PIP; MOL: WRL; EOT; SPR; DPR: DRY: SSC; PES: SON; 108; TMK; BOT; SLA; 

564 ; ; ; ; ; ; ; ; ; 3 ; j 3 ; é Z 3 

565 > MMKXRKKKXKKKK KKK KKK KKK KK KK KKK KKK HK KH NK HK NK HK HK HK KKK KK DKK KKK KKK KKK KKK OK KOK, 

566 > ER: : CDE; UNS, OP I; ; OTE; NEF; CS > FCE; NSG; PEF; INC; DAT: FMT; CNT; RMR; ILR; ILF; 

567 CRC; 7 TM : > LRC; VPE; BPE; > BPE; 

568 | KOR HIXHHHRRHH 

569 >ATS: ; ATTENTION 

570 ; SUMMARY 


571 | RXR KIIAIHHHH KH KH KIKH KHAKI HHH HK 


G 2 
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572 
573 
574 
575 
576 
577 
578 
579 
580 
581 


O5-DEC-77 12: 39 


CC: 


+ DB: 


> MR: 


: OT: 


> SN: 


re) 


+ CHECK ; 

+ CHARACTER 

47 c pmeerenrrsamnenen mage areecns ager 

> BUFFER 

F AXKAXKRKAKKKKXKAKKKKKKAKARKKKKKAAAAAKKKKKAKAAAKKKKKAKAAAAAKKKKKK 

* DB +08 +08 +08 ;OB ;08 -08 ;0B > 0B ; WRT; MM ;OP ; OP ;OP ;OP ; MM; 
P27 SEsEVI SES FSP ; CLK; CLK: Sis gi 3 1 ; GO ; 

| vn AKXMXKXIHIKIHH KK KKM KIX MMR III MH HARK MAIERIR 


+ DRIVE +73 *SLV. ; 
> TYPE +CH ; 7PR ; 

ag agannxxiorcadorioraranTeAanRI ARN RRR 
; TAL ; 
+ NUMBER 


| XXKXMRAXXXXXKKXKKKKKKKKKKKAKKKXKKAKAKKKKKKKKKKAKKKKKKKKH KK KKK 
“es FCS; TCH; ENA; SPR; DEN; DEN; DEN; FMT; FMT; FMT; FMT; EVN; SSN; SSN; SSN; 

501 , , 4 , z , 1 ; 8 ; uy ; 2 , 1 ; PRR; y ; 2 , 1 , 
" XMKMXKKKKH HHH KH HHH IH HHH IH HEI 


SEQ 0019 


H 2 
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000040 


000041 


000042 


000046 


000052 


000060 
000062 


O5-DEC-77 12: 39 


000000 
000001 
000002 
000003 
000004 
oco00s 
000006 
000007 


000000 
000200 


001000 
000040 
000 


000041 
o00 


000042 
000000 


000046 
003334 
000052 
000000 


001000 


000060 
012570 
006000 


REGISTER EQUIVSKXKKKKEKKX 


RO=%0 
R1=%1 
R2=%2 
R3=%3 
R4=%4 
R5=%5 
SP=%6 
PC=%7 


+ TRAP CATCHERSKXKKKKXKKKK 


REPT 200 
42 
HALT 
_ENDR 
{00 OOOO ITI II 
ACT11 HOOKS 
yao QOOO doo odo gaggia gaaoigaiaaaaaaaoaaaaaok 
SS¥PC=. 
_=490 
DRIVE: .BYTE O ;DRIVE # FOR XXDP LOAD MEDIUM 
;ASSEMBLE AS AO 
244 
MEDIUM: . BYTE 0 ;XXDP LOAD MEDIUM 
; ASSEMBLE AS AO 
242 
WORD OQ :LOCATION INDICATOR - AUTOM/MAN MODE 
; ASSEMBLE AS AO 
. =46 
“WORD  GENDAD ;SET TO SENDAD IN . SEOP 
262 
WORD 60 : CHARACTERISTICS OF PROGRAM 
; ;SET TO 0 
_ =$SVPC ;RESTORE PC 


122253000899 9'900090550022 3959000809900 000530000 2505202 3 | 


TTY INTERRUPT VECTOR AKKKAEKEEE 

. =60 

TTINT TTY INTERRUPT HEADER ADDPESS 
0 


SOFTWARE SWITCH REGISTERAKASERE EES 


SEQ 0020 
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000176 


000200 
000202 


000210 
000212 
000216 


000224 
000226 


000600 
000602 
000604 
000606 
000610 
000612 
000614 
000616 
000620 
000622 
000624 
000626 
000630 
000632 
000634 


000636 
000640 
000642 
000644 
000646 
000650 


05-DEC-77 


000176 
000v000 


000200 
005000 
000167 


000210 
000240 
012700 
000167 


000224 
012554 
ono2s0 


006600 


172440 
172442 
172444 
172446 
172450 
172452 
172454 
172456 
172460 
172462 
172464 
172466 
172470 
172472 
172474 


177776 
177570 
177560 
177562 
177564 
177566 


001372 


000001 
001356 


| 2 
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. 2176 
SWREG: 0 ; SOFTWARE SWITCH REGISTER 


5 MAXXKAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AA AAA AAAS 


; THIS PROGRAM SUPPORTS THE SOFTWARE SWITCH REGISTER LOC. 176. 
>REFER TO SECTION 5 OF DOCUMENT FOR DESCRIPTION 


$$ $90005000005009555005602555205562 9959329900299 > 02 >> 02290 0 0000 0 8 2 DD 8 0 8 | 
> START ADDRESSHXKKKEKKKEX 


RO 
JMP START ;PROGRAM START 


MOV #1,RO  ;SET NO HEADER FLAG 
JMP START 


>TMOZ INTERRUPT VECTOREKKAKAKHEE 


. =224 
MTINT > TAPE INTERRUPT HANDLER ADDRESS 
340 


. =600 
>MASS BUS REGISTER EGUIVSAAKEEKAEES 


172440 
172442 
172444 
172446 
172450 
172452 
172454 
172456 
172460 
172462 
172464 
172466 
172470 
172472 ‘ 
172474 


> CONSTANTSESSRERERES 


177776 PROCESSOR STATUS 
177570 > SWITCH REGISTER 
177560 TTY READER STATUS 
177562 ; TTY READ BUFFER 
177564 ; TTY PUNCH STATUS 
177566 * TTY PUNCH BUFFER 
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702 000652 177777 SERNUM: 177777 + SERIAL NUMBER 

703 000654 000011 DRVTP: O11 DRIVE TYPE 

704 000656 000010 ITAMT: 10 + ITERATION AMOUNT 

705 000660 000224 VECT: 224 + INTERRUPT VECTOR(RH) 

706 000662 172440. REGS: 172440 + STARTING REGISTER ADDRESS 
707 000664 000004 BTRP 4 BUS TRAP ADDRESS 


708 000666 000006 BTRP2: 6 BUS TRAP PRIORITY LEVEL 7 
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000670 
000672 
000673 
000674 
000675 


05-DEC-77 


000000 
0 


O5-DEC-77 12:40 PAGE 23 


AXXEAAAAAA AAA AAA AAA AAA AAA ALARA A AAA AA AA AAA AAA AA AA ATE 
ACT11 MODE INDICATORS 
KAXAKAAAAAAAAAAALA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA ATS 


AUTOM: .WORD O ; AUTOMATIC MODE INDICATOR 
ACTIiM: .BYTE O +ACT11 AUTO MODE INDICATOR 
XXDPM: .BYTE 0 ;XXDP AUTO MODE INDICATOR 
ADUMPM: .BYTE 0 +ACT11 DUMPM INDICATOR 

XDUMPM: .BYTE 0 +XXDOP DUMP MODE INDICATOR 


KAKKKAAK AA AKA A AA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


SEQ 0023 
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C2T 


000676 
000700 
000702 
000704 


001036 


001040 
001042 


O5-DEC-77 12: 39 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
o0c000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000900 
oc0000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 


000000 
012324 


ooooooc co oO0C0C0CCOCOCOo0OOCOCOO0COCOCOCOOOCO0OODO0O0OOC0OC0O0O0O0C 000000000 


FLAGS AND COUNTERSKRXKKKKKEE 


DATA PATTERN GENERATORSA444% 


0 
DAT1 ;ALL ONE BITS 


SEQ 0024 


M 2 
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777 OO1044 012346 i: + barat: DAT2. ;ALL ZERO BITS 
778 001046 012354 - 2 fy “DATA2: DAT3; ; ALTERNATING ONC/ZERO BITS 
779 001050 012364 gOATA3: DATY ALL BITS 0-377 


CZTUBGO TMOZ2 - TUI6/TE16 BSC FC MACY11 30(1046) 
CZ2TUBG. P 12: 39 


11 


001204 


05-DEC-77 


000000 


010646 
010646 
011052 
011052 
011272 
011272 
000000 
000000 
000000 
000000 


TSTTBL. 


N 2 
O5-DEC-77 12:40 PAGE 26 


LOGIC TEST ENTRY TABLES&&eaxaa%% 


SEQ 0026 


B 3 
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829 001600 . =1600 
$y] >PROGRAM START AND HOUSEKEEP INGEAKXKKEKKX 
832 001600 000240 START: NOP 
833 001602 005067 177230 CLR PAFLG ; INIT PASS FLAG 
834 001606 005067 177214 CLR PCNTR ; INIT PASS aa 
825 001612 012777 OO00340 177016 MOV #340, dPSW + SET PRIORIT 
$4 001620 012706 000500 MOV #500, SP +; SET STACK POINTER 
$38 ; KKKKAAAKAAAAAAA AAA AA AAA AAA A AAA AAA AAA AAA AAA AAA AAA AA AAAS 
839 , DIAGNOSTIC SETUP FOR EXECUTION 
840 ; UNDER ACT11. 
a | ; KKKKAKKAAAAAAAA AAA AA AAA AAA AA AAA AAA AAA AAA AAA AA AAA AAA AEE 
843 001624 004767 012434 JSR PC, CKMODE + CHECK FOR MODE OF OPERATION 
844 001630 005767 177034 TST AUTON + 1S tT AUTOMATIC MODE 
845 001634 001001 BNE 1$ +BRANCH - IF YES 
846 C01636 000412 BR SUSWR + CHECK SWR IN DUMPM - IF NOT 
847 001640 032737 O20000 900052 1%: BIT #20000, d#52 ;SET UP FOR MANUAL INTERVENTION? 
848 001646 9001406 BEQ SUSWR ;BRANCH - IF NO 
849 001650 012704 014420 MOV #MSGC,R4 GET MESSAGE 
850 001654 004767 9011274 JSR PC, TTOUT ; TYPE MESSAGE 
as 001660 000167 0125006 JMP ABORT ;AND ABORT THE PROGRAM 
os ; KAMARA AKA AAA AKA KAA AAA AA AAA AA AAA AAA AAR KKK 
y 
855 001664 013746 000006 SUSWR: MOV a#6, - (SP) + SAVE VECTORS 
856 001670 013746 000004 MOV #4, -(SP) 
857 001674 012737 001714 000004 MOV #15, O84 ;SET UP FOR TIMEOUT 
858 001702 022777 177777 176730 CMP #-1, SHR REFERENCE HARDWARE SWITCH REGISTER 
859 001710 001402 BEQ 2$ 
860 001712 O00404 BR 3$ 
861 601714 022626 1$: CMP (SP)+, (SP)+ *ADJUST SHACK 
862 001716 012767 000176 176714 2%: MOV # SWREG, SWR >POINT TO SOFTWARE SWITCH REG 
863 001724 012637 OO00004 35: MoV (SP) +, d#4 RESTORE VECTORS 
864 001730 012637 000006 MOV (SP) +, 086 
865 001734 023727 000640 000176 CMP O#SWR, RSWREG 1S SOFTWARE REG USED 
866 001742 001002 BNE 4§ BRANCH IF NO 
867 001744 004767 012052 JSR PC, CNTLU ,ALLOW SOFTARE SWITCH REGISTER TO BE CHANGED 
868 
4 001750 4S 
0 
871 ; KAKKAKKAK AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAR KY 
872 1F IN ACT11 MODE INHIBIT TYPING PROGRAM 
873 ; IDENTIFICATION AND MANUAL INTERVENTION 
874 ; KXKAAAAAA AERA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
875 
876 001750 005767 176716 : TST ACT11M / ; CHECK FOR ACT11 MODE 
877 001754 001104 BNE ST ;BRANCH - IF ACTI1 
878 ; PUTTTTLERTTTTTTTTITTTTTTTTTTTTT TTT TTT TET TTT TTT TTT 
879 
880 001756 005700 TST RO 4 1F PRINT HEADER 
881 001760 001402 BEQ STOA 1F SO: BR 
882 001762 000167 000764 JMP ST4 > ELSE SKIP 
883 001766 012704 014624 STOR: MOV #MSG3,R4 


884 001772 004767 011156 JSR PC, TTOUT ;PRINT TITLE 
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001776 
002002 
002006 
002012 
002016 
002022 
002026 
002032 
002036 
002042 
002046 
002052 
002056 
002062 
002066 
002072 
002076 
002102 
002106 
002112 
002116 
002122 
002126 
002132 
002136 
002140 
002144 
002146 
002150 
002154 
002160 
002162 
002164 
002166 
002174 


002200 


002200 
002204 


002206 
002212 
002216 
002222 
002226 
002232 
002236 
002242 


002244 


012704 
004767 
016703 
004767 
012705 
012701 
012702 
012703 
004767 
012704 
004767 
016703 
004767 
012705 
012701 
012702 
012703 
004767 


016700 . 


012720 
012710 
016700 
012701 
012702 
010022 
062700 
005301 
001373 
012702 
012700 
005022 
005300 
001375 
012767 
000167 


005767 
001017 


012704 
004767 
012705 
012701 
012702 
012703 
004767 
0004 34 


014726 
011146 
176650 
011302 
000662 
000006 
176400 
172300 
010656 
014751 
011102 
176602 
011236 
000660 
000003 
000224 
000150 
010612 
176546 
012554 
000340 
176534 
000016 
000600 


000002 
000676 
000054 


000001 


000650 


176464 


015032 


010456 


176624 


STOB: 


STO: 


STIA: 


05-DEC-77 
MOV #MSG4,R4 
JSR PC, TTOUT 
MOV REGS, R3 
JSR PC, OCTP 
MoV #REGS, RS 
MOV #6,R1 

MOV #176400. R2 
MOV #172300. R3 
JSR PC, TTR 
MoV #MSGS5, R4 
JSR PC, TTOUT 
MOV VECT.R3 
JSR PC, OCTP 
MOV RVECT. RS 
MOV #3,R1 

MOV #224,R2 
MOV #150,R3 
JSR PC, TTR 
MOV VECT.RO 
MOV @MTINT, (RO)+ 
MOV #340, (RO) 
MOV REGS, RO 
MoV #16,R1 
MoV #C1,R2 
MOV RO, (R2)+ 
ADD #2,R0 

DEC R1 

BNE STO 

MOV #TOB,.R2 
MoV #54,R0 
CLR (R2)+ 

DEC RO 

BNE $T1 

MOV #1,RHTF 
JMP TSRH 


TST 


AUTON 


Cc 3 
12:40 PAGE 


28 


;REQUEST REGISTER ADDRESS 


PRINT CURRENT ADDRESS 
+ SET ADDRESS SAVE LOC 
+SET SIZE OF RESPONSE 
SET UPPER LIMIT 

+SET LOWER LIMIT 

+GO GET RESPONSE 


;REQUEST VECTOR 


PRINT CURRENT VECTOR 
+ SET ADDRESS SAVE LOC 
SET SIZE OF RESPONSE 
+SET UPPER LIMIT 

SET LOWER LIMIT 

GO GET RESPONSE 

GET VECTOR 

;LOAD INTERRUPT ADDRESS IN VECTOR 
+LOAD PRIORITY 

*GET START OF REGS 
+SET NUMBER OF REGS 
+GET START OF TABLE 
*BUILO TABLE 

BUMP ADDRESS 

;SEE IF DONE 

; 1F NOT: BR 


+CLEAR FLAGS + COUNTERS 


*SET ADDRESS TEST FLAG 
;GO DO INITIAL ADDRESS TEST PASS 


KAKKAKAA AAA AAA AA AAA AAA AAA AAA EAA EEE 


CHECK FOR AUTOMATIC MODE 
BRANCH - IF YES 


BNE 1% 
STTTTT TTT titi tt ttt ttt t tit tt tite ttt ttt ttt ttt tt tes: 


#MSG10. R4 
PC, TTOUT 
#DRVUN, RS 
#1,R1 
#7,R2 
#0,R3 

PC, TTR 
CONTI 


;REQUEST DRIVE NUMBER 

;SET ADDRESS OF DRIVE NUMBER SAVE 
;SET SIZE OF RESPONSE 

;SET UPPER LIMIT 

;SET LOWER LIMIT 

;GO GET RESPONSE 

s EXIT 


KAKKKAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
AUTOMATICALLY SIZE FOR ORIVES 
HEKAKAAA AAA TAKARA AAA AAA AAA AAA AAAS 


SEQ 0028 


Dd 3 
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941 002244 012767 177777 176436 MOV #-1,DRVN + INIT ORIVE & 
942 002252 012767 177777 176432 NXTORV: MOV #-1,SLVN INIT SLAVE # 
943 002260 012777 OOOO4O 176322 1%: MOV #40, aCS 7 INIT ll 
944 002266 005267 176416 INC DRVN ; STEP DRIVE # 
945 002272 022767 O00010 176410 CMP #10, DRVN ALL ORIVES TESTED? 
946 002300 001002 BNE 2$ +BRANCH - IF NOT 
947 002302 000167 000764 JMP TENDO sEXIT 
948 002306 016777 176376 176274 2%: MOV DRVN, acs +LOAD DRIVE & 
949 002314 005777 176260 TST aci ACESS DRIVE 
950 002320 032777 010000 176262 BIT #10000, acs s;NON-EXISTANT DRIVE? 
951 002326 001354 BNE 1$ BRANCH - IF YES (NED=1) 
aes 002330 000167 000106 JMP NXTSLV sEXIT TO SIZE FOR SLAVES 
4 ; KK AAKKA KAKA AAA AKA AAA AAA AAA AA AAA A AAA AAA AR AA EE 
956 002334 012777 OOOO4O 176246 CONTI: MOV #40, aCS SET INIT 
957 002342 056777 176342 176240 BIS DRVN. ACS ;SET DRIVE NUMBER 
958 002350 005777 176224 TST aci ACCESS DRIVE 
959 002354 032777 O10000 176226 BIT #10000, acs +SEE IF NED 
960 002362 001405 BEQ ST2 + 1F NOT: BR 
961 002364 ©C12704 015764 MoV #MNSG41-R4 
962 002370 004767 010560 JSR PC, TTOUT PRINT NOT AVAIL 
os 002374 000701 BR STiA REDO DRIVE REQUEST 
64 
oe 002376 ST2: 
66 
967 ; bo $$ 2995 9999909256 99990 0095999550 022992995 9093990050370 2) 
968 002376 005767 176266 TST AUTOM CHECK FOR AUTOMATIC MODE 
969 002402 001017 BNE 1$ BRANCH - IF YES 
970 ; TTTTTTittttttttitttttttt titi ttttt tt ttt tit tite tt ttt 
971 
972 002404 012704 015052 MOV #MSG11,R4 
973 002410 004767 010540 JSR PC, TTOUT ;REQUEST SLAVE NUMBER 
974 002414 012705 000712 MOV #SLUN, RS SET ADDRESS OF SLAVE SAVE 
975 002420 012701 000001 MOV #1,R1 *+SET SIZE OF RESPONSE 
976 002424 012702 000007 MOV #7,R2 +SET UPPER LIMIT 
977 002430 012703 000000 MoV #0,R3 *SET LOWER LIMIT 
978 002434 004767 010260 JSR PC, TTR *GO GET RESPONSE 
979 002440 000432 BR CONT2 ;AND EXIT 
980 
981 , KHKAAAAA AAA KARA AAA AAA AAA AAA AAA AAA AAA ATA AAR AAA ETS 
982 ; AUTOMATICALLY SIZE FOR SLAVES 
983 ; KHRAAAKAAKARAA AAA A AAA AAA AAA AAS 
984 002442 1$ 
985 002442 005267 176244 NXTSLV: INC SLVN STEP SLAVE & 
986 002446 001010 BNE 1$ ;BRANCH - IF NOT SLAVE 0 
987 002450 005767 176234 TST DRVN DRIVE 0? 
988 002454 001005 BNE 1$ BRANCH - IF NOT 
989 002456 105767 176211 TSTB XXDPM + CHAIN MODE? 
990 002462 001402 BEQ 1$ *>BRANCH - IF NOT 
991 002464 005267 176222 INC SLVN STEP TO NEXT SLAVE 
992 002470 022767 000010 176214 1%: CMP #10, SLUN ALL SLAVES TESTED? 
993 002476 001665 BEQ NXTORV BRANCH - IF YES 
994 002500 016777 176206 176124 MoV SLYN, aTC *LOAD SLAVE UNIT & 
995 002506 032777 002000 176112 BIT #2000. @0T *SLAVE PRESENT 


996 002514 001752 BEG NXTSLV >BRANCH - IF NOT (SPP=0) 


CZ2TUBGO THOZ - TUI6/TE16 Di ee MACY11 30(1046) 
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002516 
002524 


002526 
002534 
002542 
002550 
002556 
002560 
002564 
002570 
002572 
002576 
002602 
002606 


002612 
002616 


002620 
002624 
002630 
002634 
002640 
002644 
002650 
002654 
002660 
002664 
002670 
002674 
002700 
002704 
002710 
002714 
002716 
002722 
002726 
002732 
002736 
002742 
002746 
002752 
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032777 
001746 


012777 
056777 
016777 
032777 
001005 
012704 
004767 
000702 
012704 
004767 
017703 
004767 


005767 
001057 


012704 
004767 
012705 
012701 
012702 
012703 
004767 
012704 
004767 
012705 
012701 
012702 
012703 
004767 
005767 
001016 
012704 
004767 
012705 
012791 
012702 
012703 
004767 
005067 


140000 


000040 
176150 
176144 
002000 


016005 
010364 


016026 
010352 
176022 
011034 


176052 


016610 
010324 


176110 


016501 
010226 
001022 
000001 
000001 
000000 
007746 
176050 


176102 


176054 
176046 
176062 
176050 


CONT2: 


ST3: 


ST4: 


es 
12:40 PAGE 30 


SEQ 0030 


+ 1S DRIVE A TAPE UNIT 
;BRANCH - IF NOT 


KAAKAAAAAAALAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


> INIT 

;SET ORIVE NUMBER 
;LCAD SLAVE NUMBER 

; SEE e ht PRESENT 


3 HF 


PRINT NON-EXIST SLAVE 
REDO SLAVE REQUEST 


PRINT SERIAL NUMBER TAG 
PRINT SERIAL NUMBER 


KAKA KAKA A AAA AAR AAA AAR AAA AA AAA AAA AAA AAA AA AAA AAA AAA KES 


05-DEC-77 

BIT #140000, d0T 
BEG NXTSLV 
MOV #40, aCS 
BIS DRVN, ACS 
MOV SLVN, dTC 
BIT #2000, d0T 
BNE ST3 

MOV #MSG42,R4 
JSR PC, TTOUT 
BR $T2 

MOV #NSG4 3, R4 
JSR PC, TTOUT 
MOV OSN, RZ 
JSR PC, SNPT 
TST AUTOM 

BNE 

MOV #NSG61,R4 
JSR PC, TTOUT 
MOV #RH17F,R5 
MoV #1,R1 

MoV #1,R2 

MOV #0,R3 

JSR PC, TTR 
MOV #1SG62, R4 
JSR Po, TTOUT 
MOV #PHOF, RS 
MOV #1-R1 

MOV #1,R2 
MOV #0, 23 

JSR PC. TTR 
TST RHOF 

BNE S74 

MoV #MSG55, R4 
JSR PC, TTOUT 
MOV #NRZOF, RS 
MoV #1,R1 

MoV #1,R2 

MOV #0,R3 

JSR PC. TTR 
CLR PCNTR 


+ CHECK FOR AUTOMATIC MODE 


TSCD ; BRAN F YES 
SOOO OOO OOOO OOOO III 


REQUEST RH11 OR RH70 
GET ADDRESS OF FLAG 
SET SIZE OF RESPONSE 
+SET UPPER LIMIT 

*>SET LOWER LIMIT 

;GET RESPONSE 


;REQUEST RH11 ONLY RESPONSE 
SET FLAG ADDRESS 

*SET SIZE OF RESPONSE 

*SET UPPER LIMIT 

*SET LOWER LIMIT 

*GO GET RESPONSE 

+SEE IF RH11 ONLY 

7 1F SO: BR 


REQUEST NRZ ONLY RESPONSE 
SET FLAG ADDRESS 

*SET SIZE OF RESPONSE 

SET UPPER LIMIT 

SET LOWER LIMIT 

>GO GET RESPONSE 

>CLEAR PASS CCUNTER 


CZTUBGO TNO2 - TU16/TE16 BSC FC MACY11 30(104%6) 


CZ2TUBG 
1044 


Pl 


002756 
002760 


002764 
002770 
002774 
003000 
003006 
003012 
003016 
0023024 
003030 


003034 
003040 
003044 
003046 
003050 
003056 


003226 


O05-DEC-77 12: 39 


000240 
005067 


005067 
013746 
013746 
016737 
005037 
00&777 
012767 
012637 
012637 


017700 
042700 
005700 
001055 
012767 
062767 
016767 
062767 
005777 
001002 
000167 
000240 


012767 


176016 


175712 
000004 
000006 
000020 
000006 
175616 
000001 
000006 
000004 


175600 
177740 


001052 
000004 
175714 
000002 
175700 


000144 
175636 
175600 


175554 
175650 


002000 


010572 
175616 


175446 
177740 


000001 
000025 


001052 


000004 


175656 


175726 
175720 
175702 
175674 


175472 


175570 


175550 


TSCD: 


TSRH: 


TSCDO: 


TSCO1: 


TSCD2: 


TScD3: 


sTsco: 


05-DEC-77 


F 3 
12:40 PAGE 31 


+ TEST SCHEDULARKXKRKEXEXE 


;CLEAR SINGLE TEST FLAG 


KKAAAAAAAAAAA AA AAA AAA AAA AAA AAA AA AAA AA AAA AAA AAA AAA AAA AAA AAAS 


NOP 

CLR STFLG 

CLR RH17F 

MOV #4, - (SP) 
MOV O#6, - (SP) 
MoV 1$, 084 
CLR a6 

TST OBRE 

MOV #1,RH17F 
MoV (SP) +, d#6 
MOV (SP)+, 084 


*+SET RH11 INDICATOR 

+; SAVE ERROR TRAP AND VECTORS 
SAVE PRIORITY 

+SET TIME OUT 

SET LOW PRIORITY 

;REFERENCE BARE REGISTER 

+ SET RH7G_ INDICATOR 

RESTORE ERROR TYPE 


1299999999939 9 9999599990992 2 9920022900000 9 09050908 08 0 0 00900598 8 | 


OSHR, RO 
#177740, R0 
RO 


STSCD 
#TSTTBL. LTADD 
#4, LTADD 


HDRFL 
@LTADD. RO 
(RO) 


#2000, dSHR 
TSCD3 
PC, CKSWR 


STFLG 
TSCOO 
SHR, RO 
#177740, R0 
RO 

TSCD 


#1,STFLG 
#25,R0 
TEND 

RO 


RO 
#TSTTBL.LTADD 


>GO SELECT S!NGLE TEST 


SET ITERATION ADDRESS 


GO TO END ROUTINE 


>CLEAR PRINT HEADER FLAG 
>SET POINTER TO TEST 
GO TO TEST 


>SEE IF HALT ON TEST 
> 1F NOT. BR 


>CHECK FOR CNTL G 


>SE IF SINGLE TEST 
> iF NOT: BR 


;MASK TEST NUMBER 
/>SEE IF RETURN TO ALL 
;1F SO: BR 


SET SINGLE TEST FLAG 


>SEE IF EXCEEDED TESTS 
> 1F SO: BR 


;SET TABLE MODIFIER 


SEQ 0031 


G 3 
CZTUBGO TMOZ - TU16/TE16 BSC FC MACY11 30(1046) O5-DEC-77 12:40 PAGE 32 SEQ 0032 
C2TUBG. P11 O5-DEC-77 12: 39 


1100 003234 060067 175544 ADD RO. LTADD + SET TEST POINTER 

1101 003240 016767 175540 175526 MOV LTADD, I TRLP 

1102 003246 062767 000002 175520 ADD #2, |TRLP ;SET ITERATION POINTER 

ten 003254 000716 BR TSCD1 

1 

oor ; KKKAKAKAAAA AAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AA AAA AAA AA AAAS 
1107 003256 000240 TEND: NOP 

1108 003260 005767 175404 TST AUTON CHECK FOR AUTO MODE 
1109 003264 001402 BEQ TENDO *>BRANCH - IF NOT 

1110 003266 000167 177150 JMP NXTSLV >GET ANOTHER SLAVE DEVICE 
th 003272 TENDO: 

111 

+45 ; KKK KAKA AKA AAA AAA AKA AAA AAA AAA AA AAA AAA AAA AAA AAR AA AAA EEE 
1114 

1115 003272 012704 014764 MOV #MSG6, R4 

1116 003276 004767 007652 JSR PC, TTOUT ;PRINT END OF PASS 

1117 003302 016703 175520 MOV PCNTR,R3 

+44: 003306 004767 010006 JSR PC, OCTP ;PRINT PASS NUMBER 

111 

1120 ; KAAAAAKAAARA ALAA AE AAA AAA AAA AAA AAA AAA AAA AAA AAA ATS 
1121 ; AUTOMATIC MODE END OF PASS 

$4 ’ : KKAKKA KAA AAA AAA AAA AAA AAA AAA A AAA AAA AAA AAA AAA AE 
11 

1124 003312 005767 175520 TST PAFLG ;PASS INDICATOR SET? 

1125 003316 001002 BNE 3$ BRANCH - IF SET 

1126 OC°720 005267 175512 INC PAFLG ;SET PASS INDICATOR 

1127 003324 013704 9000042 3$: MOV #42, R4 CONTENTS OF 42 TO R4 

1128 003330 001405 BEQ HERE >BRONCH - IF NOT AUTO MODE 

1129 003332 000005 RESET *CLEAR THE WORLD 

1130 003334 004714 SENDAD: JSR PC, CRY) :;RETURN TO MONITOR 

1131 003336 000240 NOP 

1132 003340 000240 NOP 

1133 002342 000240 NOP 

1134 003344 HERE: 

1135 003344 005767 175320 TST AUTON CHECK FOR AUTOMATIC MODE 

1136 003350 001005 BNE TENDX BRANCH - IF YES 

1137 003352 022777 OO4000 175260 BiT #4000. dSWR /SEE iF HALT ON PASS 

1138 003360 001001 BNE TENDX > 1F NOT. BR 

1139 003362 000000 HALT 

1140 003364 TENDX 

1141 003364 005767 175300 TST AUTOM CHECK FOR AUTO MODE 

1142 003370 001492 BEQ 1$ ;BRANCH - IF NOT 

1143 003372 000167 900004 JMP EXIT + RESTART 

1144 003376 004767 010346 1S: JSR PC, CKSWR CHECK FOR CNTL G 

1145 003402 005267 175420 EXIT: INC PCNTR >BUMP PASS COUNTER 

1146 003406 000167 177344 JMP T3scO ?RESTART 

1147 


1148 ; oo0000000000002050000000050552552505535920055053525523522222252) 


CZTUBGO TNOZ - TU16/TE16 BSC FC 


C2TUBG. P11 


1149 
1150 
1151 
1152 


003412 
003420 
003426 
003434 
003440 
OO3444 
OO3446 
003450 
003452 
003454 
003460 
002462 
003470 
003474 
003476 
003502 
003506 


O5-DEC-77 12: 39 


012767 


000167 


016643 
012600 
000340 
000016 
175134 


000002 


000006 
175324 


175316 
176472 
177424 





H 3 
MACY11 30(1046) Q5-DEC-77 12:40 PAGE 33 SEQ 0033 


175266 
175236 
175232 


175174 


FTiXx: 


*RH ADDRESSING TESTRRKKSERERE 


#MSFT1, EMADOR 
# TRAP, OBTRP 
#340, DBTRPZ 
#16,R0 


+ SET HEADER 
+ SET TRAP HANDLER ADDRESS 


+SET NUMBER OF REGISTER 

+GET FIRST ADDRESS (CS1) 

;REFERENCE REGISTER 

+ 1F ADDRESS IS BAD. BUS TRAP WILL OCCUR 
+SEE IF DONE ALL 


> 1F SO: BR 

;BUMP ADDRESS POINTER 

; CONTINUE 

;RESET TRAP CATCHER 

;SEE IF INITIAL ADDRESS TEST PASS 
;1F NOT: BR 

; CLEAR FLAG 

> RETURN 

»RETURN TO SCHEDULAR 


CZTUBGO TMOZ - TUI6/TE16 BSC FC 


CZ2TUBG. P11 


1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1129 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 


003512 
003520 
003524 
003530 
003534 
003536 
003540 
003542 
003544 
003552 
003560 
003564 
003570 
003572 
003576 
003600 
003602 
003604 
003612 
003620 
003624 
003630 
003632 
003634 
003640 
003642 
003644 
003646 
003650 
003656 
002664 
003670 
003672 
003674 
003676 
003702 
003704 
003712 
003714 
003720 
003722 
003726 
003732 
003740 
003744 
003750 
003754 
003760 
003762 
003766 
003772 
003776 
004000 


012767 
012701 
004767 


004767 


05-DEC-77 12: 39 


016670 
177777 
006776 
175046 


015312 
003524 
000116 
175014 


000001 


015320 
003564 
000056 
174772 


004000 


015326 
003624 
000012 


177622 
020000 
174764 


174760 
007222 
000001 
175002 
007204 
015256 
007174 


007320 
015266 
007156 


007302 


MACY11 30(1046) 


175166 


175174 
175212 


175134 
175152 


175070 
175106 


174726 


174744 


FT2: 
FT2A: 


FTZB: 


FT2C: 


FT20: 


FTE: 


FT2ER: 


FT2ERA: 


05-DEC-77 


i 
12:40 PAGE 34 


7RH REGISTER BITS READ/URI TERKKERAKEAE 


MOV AMSFTZ, EMADOR 
MOV #-1,R1 


B 
MOV #MSG25, ERADD 
MOV #FT2A, SCOLP 
JSR PC, FTZER 


MOV BA. RO 
MOV R1,R2 
BIC #1,R2 
MOV Ri, (RO) 
CMP RZ, (RO) 
BEQ FT2C 


MoV #MSG26. ERADD 
MoV ' #FT2B. SCOLP 
JSR PC. FTZER 


MOV DB. RO 

MoV R1,P2 

Mov Ri, (RO) 

MOV #4000, R3 
DEC R3 

BNE FT20 

CMP R2, (RO) 

BEQ FT2E 

MoV #MSG27, ERADD 
MOV #FT2C, SCOLP 
JSR PC. FT2ER 
TST R1 

BEQ FT2x 

CLR Ri 

JMP FTZ2A 

NOP 


BIT #20000, dSWR 
BNE FTZERB 

TST HDRFL 

BNE FT2ERA 

MOV EMADDR, R4 
JSR PC, TTOUT 


MoV #1, HDRFL 
MoV ERADD, RY 
JSR PC, TTOUT 


MOV #MSG22, R4 


MOV #NSG23, RY 
JSR PC, TTOUT 
MoV (ROI,R3 

JSR PC, OCTPE 


+SET TEST HEADER 
+ SET “rs ONES PATTERN 


;GO INI 

;GET ADDRESS OF WORD COUNT 
;SET EXPT REGISTER BIT PATTERN 
;LOAD PATTERN 

;SEE IF EXPT=RCVD 

; IF SO: BR 

;SET CODE 

; SET yn 

;GO DO ERR 

; GET ADDRESS OF BUS ADDRESS 


>SET EXPT PATTERN 

;LOAD PATTERN 

SEE IF EXPT=RCVD 

+ IF SO: BR 

;SET ERROR CODE 

; SET we — 

GO DO ERR 

;GET ADDRESS OF DATA BUFFER 


>;LOAD PATTERN 
; DELAY 


>SEE IF EXPT=RCVD 
> 1F SO: BR 

;SET ERROR CODE 
;SET SCOPE ADDRESS 
; GO DO ERROR 

;SEE IF DONE RESET 
> IF SO: BR 

;SET ZERO PATTERN 
;D00 ZERO BITS 


SEE 1F PRINT ERPROP 
> 1F NOT: BR 
>SEE 10 DONE HEADER 
> 1F SO: BR 


*DO HEADER 
>SET FLAG 


PRINT ERROP CODE 
;PRINT EXPT TAG 
PRINT EXPT 
;PRINT RCVD TAG 
>PRINT RPCWD 


SEQ 0034 


CZ2TUBGO TMOZ2 - TUI6/TE16 BSC FC MACY11 30/1046) 
O5-DEC-77 12: 39 


C2TUBG. 


Pili 


004004 
004010 
004012 
004014 
004020 
004022 
004024 
004026 
004032 


005777 
100001 
000000 
004767 
000240 
000207 
000240 
004767 
000167 


174630 


006366 


006416 
177100 


05-DEC-77 


FTZERB: TST 
BPL 


FTZERC. 


FT2Xx: 


HALT 
JSR 
NOP 
RTS 
NOP 
JSR 
JMP 


OSHR 
FTZERC 


PC, SCOPE 
PC 


PC, ITER 
TSCD2 


J 3 
12:40 PAGE 35 


+SEE IF HALT ON ERROR 
;1F NOT: BR 


GO SEE IF SCOPE ON ERROR 
+ 1F NO SCOPE: CONTINUE TEST 


;GC SEE IF ITERATIONS 
RETURN TO SCHEDULAR 


SEQ 0035 


CZTUBGO TNOZ - TU16/TE16 Bg Ma MACY11 30(1046) 


CZTUBG. P11 


004036 
004044 
004052 
004056 
004064 
004066 
004072 
004076 
004100 
004106 
004112 
004120 
004122 
004130 
004134 
004140 
004144 
004146 
004150 
004156 
004162 
004166 
004172 
004200 
004202 
004206 
004210 
004214 
004220 
004224 
004230 
004234 
004240 
004242 
004244 
004246 
004252 


G5-DEC-77 


012767 
012767 
004767 
052777 
000240 


000207 


016725 
004036 
006450 
020000 


006434 
174502 


015364 
000060 
040000 


015413 
000036 
174450 
000307 


015443 
000010 
006262 
176744 
020000 


174476 


174472 
006734 
174460 
174516 
006720 
174400 


006134 


174642 
174720 


174524 


174640 


174460 


174616 


174570 


174440 


FT3: 


FTA: 


FT3B: 


FT3xX: 
FTSER: 


FT SERA: 
FTSERB: 


FTSERC: 


05-DEC-77 


K 3 
12:40 PAGE 36 


*RH INITIALIZE TESTHRXESEXEXE 


MOV Ries 


BIS #20000, acs 
JSR PC. INIT1 
aci 


BPL FT3A 

MOV #MSG29, ERADD 
JSR PC, FT3ER 

AM #40000, dC1 


FT3B 
MOV #MSG30, ERADD 


FT3X 
MOV #MSG31, ERADD 
JSR PC, FTER 
JSR PC, ITER 


JMP TSCD2 

BIT #20000, dSWR 
BNE FT3ERB 

TST HDRFL 


BNE FT3ERA 


JSR PC, TTOUT 
INC HORFL 
MOV ERADD. R4 
SR PC. TTOUT 
TST OSHWR 
PL FT3ERC 
HALT 
NOP 
JSR PC, SCOPE 
RTS PC 


+SET TEST HEADER 


;GO INIT 
;FORCE UPE = 


+GO INIT 
+SEE IF SC IS RESET 


0: BR 
+SET ERROR CODE 
; ERROR 
+SEE IF TRE 1S RESET 
IF SO: BR 
iSET ERROR CODE. 
ERROR 


— 


MARK IR/OR 

;SEE IF RESET 

; IF SO: BR 

;SET ERROR CODE 

;GO DO ERROR 

;GO SEE IF ITERATION 
;RETURN TO SCHEDULAR 
;SEE IF PRINT ERROR 
;1F NOT: BR 

;SEE IF DONE HEADER 
> IF SO: BR 


PRINT HEADER 
;PRINT ERROR CODE 


>SEE IF HALT ON ERROR 
SIF NOT: BR 


>GO SEE iF SCOPE 
> 1F NOT: BR 


SEQ 0036 


CZTUBGO THOZ - TUI6/TE16 BSC FC 


C2TUBG. P11 


1274 
1275 
1276 


004254 
004260 
004 262 
004270 
004276 
004302 
004306 
004310 
004314 
004316 
004324 
004326 
004332 
004336 
004 344 
004346 
004 354 
004 356 
004 364 
004 366 
004374 
004400 


O5-DEC-77 12: 39 


005767 
001141 
012767 


174422 
016757 
000040 
174320 
174302 
174264 
040000 
006116 
176600 
015473 
015511 
015526 


004254 


177572 


MACY11 30(1046) 


174254 


174402 
174372 
174362 
174376 


FT4: 


FT4X: 
FTYER: 


F T4ERA: 


FT4YERB: 
FTYERC: 


05-DEC-77 


*RH11 SILO TEST 1: 


RH17F 


FTSX 
#MSFT4, EMADOR 
#40, aCS 
a08, RO 
acs 

FTYER 

aci 

FTYERA 
#40000. aC 
FT4YERB 

PC, ITER 


TSCO2 
#MSG32, ERADD 
anSGS3. ERADD 
anSGSN. ERADD 
#FT4, SCOLP 


PC.FT3ER 
FT4X 


L 3 
12:40 PAGE 37 


EPMTY SILO READKXXKKERKKX 


+ 1F RH70: BR 
;SET TEST TEST HEADER 
+ INI 
*READ OB 
+SEE IF OLT IS SET 
+ 1F NOT: BR 
+SEE IF SC _ IS SET 


NOT: 
+GO SEE iF | TERATION 
RETURN TO SCHEDULAR 
SET ERROR CODE 
+ SET ERROR CODE 
+ SET ERROR CODE. 


SET SCOPE ADDRESS 
GO PRINT ERROR 


SEQ 0037 


CZTUBGO TMOZ2 - TUI6/TE16 BSC FC 


C2TUBG. P11 


004402 
004406 
004410 
004416 
004424 
004430 
0044 36 
004440 
004446 
004452 
004460 
004462 


* 004470 


004474 
004502 
004510 
004512 


004520 . 


oc4524 
004532 
004536 
004544 
004546 
004550 
004552 
004560 
004564 
004570 
004574 
004600 
004602 


O5-DEC-77 12: 39 


005767 
001066 
012767 
012767 
004767 
032777 
001005 
012767 
004767 
032777 


000207 


174274 


017007 
004424 
006076 
000100 


015544 
000122 
000200 


015571 
000100 
000000 
000200 


015620 
000050 
177777 
004000 
000200 


015620 
000910 
005660 
176342 
177372 


MACY11 30(1046) 


174270 
174346 


174152 
174300 
174130 
174256 


174120 
174100 


174226 
174070 
174044 


174166 


FTS: 


FTSA: 


FTSB: 


FTSC: 


FTSD- 
F TSE: 


F TSX: 


FTSER: 


05-DEC-77 


*RH11 SILO TEST 2: 


RH17F 

F TSX 
#MSF TS, EMADOR 
#F TSA, SCOLP 
PC, INIT1 
#100. acs 

F TSB 

#MSG35, ERADD 
PC, FTSER 
#200, aCS 
FTSC 

#MSG36, ERADD 
PC, FTSER 

#0, o08 

i = has 


FTSD 
#NSG37, ERADD 
PC, FTSER 


PC, FT3ER 
PC 


nM 3 
12:40 PAGE 38 


IR/OR CHECKESSASEEEEE 


+x IF ag 


F SO: B 
SET TEST HEADER 
+ SET os ADDRESS 
*GC_ INIT 
SEE. iF IR 1S SET 
+ 1F SO: BR 
+SET ERROR CODE 
+GO DO ERROR 
+SEE IF OR IS RESET 
7 1F SC: BR 
+ SET ERROR CODE 
GO DO ERROR 
+LOAD ZERO INTO SILO 
+SEE THAT OR RESET 
7 1F IT DOES: BR 
;SET ERROR CODE 
GO DO ERROR 
;LOAD SILO WITH -1 


SEE IF OR IS SEF 
7 1F SO: BR 


;AWAIT OR 

+SET ERROR CODE 

+GO DO ERROR 

;GO SEE IF ITERATION 
RETURN TO SCHEDULAR 
;GO PRINT ERROR 


> CONTINUE TEST 


SEQ 0038 





CZTUBGO THOZ - TUI6/TE16 tg FC MACY11 30(1046) 
C2TUBG. P11 2: 39 


004604 
004610 
004612 
004620 


005070 


Q05-DEC-77 1 


005767 


004767 
000207 


174072 


017037 
004626 
005674 


173762 
000102 
000100 
015731 
000054 
000200 


015657 
000032 


173700 


000102 


005506 
176170 


177216 


020000 


173710 
173706 
006150 
173674 
015711 
0061 34 
015256 
006124 


006262 
015266 
006106 
006244 
173560 


« 
006660 


174066 
174144 


173732 
174060 
173710 
174036 


173652 


*RH11 SILO TEST 3: SILO 


FT6: 


F T6RA: 
FT6B: 


FT6Cc: 


FT6D: 
F TOE: 


F T6Xx: 
FTOER: 


FT6DE: 


F T6DER: 


FTODEB: 


F T6DEX: 


05-DEC-77 


RH17F 
FT6X 


#MSF T6, EMADDR 


#F TOA, SCOLP 
PC, INIT1 
RO 


RO. d08 
RO 
#102,R0 
FT6B 
#100, dCS 
FT 


6C 
#MSG40, ERADD 


PC, FT6ER 
#200, dCS 


FT6D 
#MSG38. ERADD 


PC, FT6ER 


PC, FT3ER 

PC 

#20000. dSWR 
F T6DEB 
HDRFL 
EMADOR, R1 
PC, TTOUT 
HORFL 


#MSG39,R4 
PC, TTOUT 


PC. TTOUT 


PC, CKSWR 
PC 


N 3 
12:40 PAGE 


39 SEQ 0039 


DATA TESTRXXEXEXERE 


+ 1F RH70: BR 
+SET TEST HEADER 
+SET ty ADDRESS 


+GC | 

‘PRESET pata 

+LOAD SILO 

BUMP DATA 

+SEE IF FILLED ALL 

+ 1F NOT: BR 

+SEE IF IR IS RESET. 
+1F SO: BR 

; SET ERROR CODE 

+GO DO ERROR 

+SEE IF OR IS SET 
iF SO: BR 


; SET ERROR CODE 

+GO DO ERROR 

PRESET DATA 

READ SILO 

+SEE IF EXPT=RCVD 

> 1F NOT: BR 

BUMP DATA 

+SEE IF DONE ALL 

+ 1F NOT: BR 

+GO SEE IF ITERATION 
+RETURN TO SCHEDULAR 


+GO PRINT ERROR 
7 RETURN 


+SEE IF PRINT ERROR 
7 1F NOT: BR 
+SEE IF DONE HEADER 


PRINT HEADER 
*SET FLAG 


7PRINT SILO READ ERROR 
PRINT EXPT TAG 

+PRINT EXPT 

PRINT RCVD TAG 
PRINT RCVD 

+SEE IF = ON ERROR 
+ 1F NOT: 


+CHECK FOR CNTL G 
RETURN TO TEST 





CZTUBGO TMOZ2 - TU16/TE16 BSC FC MACY11 30(1046) 


C2TUBG. P11 


005072 
005076 
005100 
005106 
005114 
005120 
005124 
005130 
005132 
005134 
005140 
005142 
005146 
005152 
005160 
005164 


O5-DEC-77 12: 39 


005767 
001021 
012767 
012767 
004767 
012700 
010077 
005300 
001374 
00&777 
100004 
004767 
000167 
012767 
004767 
000766 


173604 


017067 
005072 
005406 
000103 
173472 


173450 


005302 
175764 
015473 
177006 


173600 
173656 


173566 


FT?: 


FTZA: 


FT7X: 


FTZER: 


BY 
OS-DEC-77 12:40 PAGE 


*RH11 SILO TEST 4: SILO 


RH17F 


FT7X 
#MSFT7, EMADOR 
#FT7, SCOLP 


TSCO 

#MSG32Z, ERADD 
PC-FT3ER 
FT7x 


40 


OVERF LOWSAXAKEKKKE 


> IF RH70: BR 

;SET TEST HEADER 

;SET SCOPE ADDRESS 
;GC INIT 

; SET SIZ oF SILO +1 

; L 


OT: BR 
+SEE IF OLT IS SET 
7 1F NOT: BR 
+GO SEE IF ITERATION 
RETURN TO SCHEDULAR 
> SET ERROR CODE 
GO DO ERROR 


SEQ 0040 


Sel TMOZ2 - TUI6/TE16 BSC FC 
CZ2TUBG. P11 05-DEC-77 


UBG. 


005166 
005172 
005174 
005202 
005210 
005216 
005222 
005226 
005230 
005232 
005240 
005246 
005252 
005256 
005262 
005264 
005270 
005274 
005276 
005302 
005306 
005314 
005320 


005767 
001034 
012767 
012767 
012777 
012700 
010077 
005300 
001374 
052777 
012777 
017701 
017701 
005777 
100011 
004767 
005767 
001402 
000167 
000167 
012767 
004767 
000761 


12: 39 


173510 


017117 
005166 
000040 
000004 
173374 


000040 
177777 
173350 
173344 
173326 


005160 
173530 


175754 
175630 
015473 
176652 


MACY11 30(1046) 


173504 
173562 
173372 


173350 
173354 


FT10: 


FT10OA: 


FT10x: 


FT10Xx: 
FTIOER: 


Cc 4 
O5-DEC-77 12:40 PAGE 


y 


— 


*RH11 SILO TEST 5: SILO RESETARKRAKEEX 


RH17F 


FT10X 
ANSFTAO, EMADDR 
#FT10, SCOLP 


TSCD2 
#NSG32, ERADD 
PC, FT3ER 
FT10X 


;1F RH70: BR 

;SET TEST HEADER 

;SET SCOPE ADDRESS 

; INITIALIZE 

; SET “gre OF SILO WRITER 
iW 


+SEE IF DLT IS SET 

+ 1F NOT: BR 

+GO SEE IF ITERATION 
+SEE IF RH1i ONLY 

> 1F NOT: BR 

*ELSE GO TO END 
RETURN TO SCHEDULAR 
+ SET ERROR CODE 

*GO DO ERROR 


SEQ 0041 


D 4 
C7TUBGO TMO2 - TU16/TE16 BSC FC MACY11 30(1046) OS5-DEC-77 12:40 PAGE 42 SEQ 0042 
C. UBG. P11 O5-DEC-77 12: 39 


iy NOP TESTHREEX 

1435 005322 000240 FT11: NOP 

1436 005324 012767 005322 173440 MOV #FT11,SCOLP ;SET SCOPE ADDRESS 

1437 005332 004767 005170 JSR PC, INIT1 

1438 005336 012767 O00300 173450 MOV #300, UDES ;SET TC= ALL NRZ, NORM, ODD 
1439 005344 012767 177777 173344 MOV #-1,FCNT +SET FC= ALL OVER 

1440 005352 012767 177777 173340 MOV #-1,WCNT +SET WC= ALL OVER 

1441 005360 012767 177777 173326 MOV #-1,BADOR +SET BA= ALL OVER 

1442 005366 012767 OO00001 173340 MOV #1,RDYDX + SET DELAY 

1443 005374 012767 O00001 173334 MOV #1, OPDYX ;SET OP DELAY 

1444 005402 012767 000001 173376 MOV #1,FUN ;SET NOP FUNCTIONS CODE 
1445 005410 004767 003760 JSR PC, EXEC ;GO EXECUTE COMMAND 
1446 005414 000240 NOP 

1447 005416 012767 017150 173262 MOV #MSFT11, EMADOR 

1448 005424 004767 004174 JSR PC, ERCHK ;GO CHECK REGISTER 

1449 005430 004767 005014 JSR PC, ITER GO SEE IF ITERATIONS 


1450 005434 000167 175476 JMP TSCD2 RETURN TO SCHEOLLAR 


CZ2TUBGO THOZ2 - Met) A 2 BSC FC MACY11 30(1046) 
CZ2TUBG. P11 12: 39 


1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1409 


005440 
005442 
005450 
005454 
005462 
005470 
005476 
005504 
005512 
005516 
005520 
005526 
005530 
005536 
005542 
ooss46 


05-DEC-7 


000240 
012767 
004767 
052777 
012767 
012767 
012767 
012767 
004767 
000240 
032777 
001374 
012767 
004767 
004767 
000167 


005440 
005052 
001700 
177760 
177770 
017630 
000007 
003656 


020000 


017170 
004062 
004702 
175364 


173322 


173150 
173226 
173222 
173210 
173274 


173064 
173150 


FT12: 


FT12A—: 


—e 4 
O5-DEC-77 12:40 PAGE 


REWIND TESTXEXKE 


#FT12, SCOLP 
PC, INITI 
#1700, dTC 
#-20, FCNT 
#-10, WCNT 
#WOATA, BADDR 
#7, FUN 

PC, EXEC 


#20000. d0S 
FT12A 

#MSFT12, EMADOR 
PC, ERCHK 


PC, ITER 
TSCO2 


43 SEQ 0043 


GO INITIALIZE 

+ SET TO NRZ. NORMAL 
*+SET FC=20 

SET WC=10 

+ SET BA=WRITE BUFFER 
+SET REWIND OP CODE 
GO EXECUTE COMMAND 


; AWAIT PIP 
GO CHECK FOR ERROR 


;GO SEE IF ITERATION 
RETURN TO SCHEDULAR 


CZTUBGO TNOZ2 - TUI6/TE16 BSC FC 


C2TUBG. 


1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 


Pil 


005552 
005554 
005562 
005570 
005576 
005604 
005612 
005616 
005624 
005630 
005636 
005644 
005652 
005660 
005666 
005672 
005676 
005702 
005706 
005710 
005716 
005724 
005732 
005740 
005746 
005752 
005756 
005762 
005764 
005772 
006000 
006006 
006014 
006020 
006024 
006030 
006032 
006040 
006042 
006050 
006056 
006060 
006064 
006066 
006074 
006100 


O5-DEC-77 12: 39 


000240 
012767 
012767 
012767 
012767 
012767 
004767 
012767 
004767 
012767 
012767 
012767 
012767 
012767 
004767 
005067 
004767 
005367 
001367 
012767 
012767 
062767 
012767 
012767 
004767 
004767 
005367 
001371 
162767 
012767 
012767 
012767 
004767 
004767 
005367 
001371 
032767 
001017 
062767 
032767 
001493 
005767 
001005 
012767 
000167 
000167 


000001 
000001 
000100 
017213 
000001 
004414 
000300 
003676 
177600 
177700 
017630 
000061 
015072 
003502 
173074 
003722 
173014 


000100 
021342 
000200 
000077 
015110 
003422 
003646 
172740 


000200 
000071 
015135 
000100 
003354 
003600 
172672 


002000 


000400 
002000 


172736 
000100 


177524 
175032 


MACY11 30(1046) 


173152 
173146 
173124 
173102 
173204 


173170 


173060 
173054 
173042 
173126 
173036 


173004 
172770 
172762 
173046 
172756 


172722 
173006 
172716 
172706 


172754 


172744 
172736 


FT13: 


FT13A: 


FT13B: 


FT13C: 


FT13D: 


FT13€: 
FT13*: 


05-DEC-77 


+WRITEZREAD TESTEXEXK 


#1, ROYOX 
#1, OPDYX 
#100, RCNT 


#WDATA, BADDR 
#61. FUN 
#MSG1Z, ERRP 


FT138 

#100, RCNT 
#RDATA, BADOR 
#200, BADDR 


PC, EXEC 


#MSG14, ERRP 
#100, RCNT 
PC, EXEC 

PC, ERCHK 
RCNT 


FT130 
#2000. UDES 
FT13Xx 
#400. UDES 
#2000. UDES 
FTI3E 
NRZOF 
FT13X 
#100, RCNT 
FT13A 
TSCD2 


F Y 
12:40 PAGE 


#MSFT13, EMADOR 
TRN 


44 


+ SET RECORD COUNT 
+SET TEST HEADER 


SET UP ALL ONES DATA PATTERN 
+REWIND TO BOT 

*+SET 200 BPI, NORMAL 

+SET FC 


;SET WC 
+SET BA 
;SET WRITE OP-CODE 


+GO EXECUTE COMMAND 
+NO SCOPE LOOP 

GO CHECK ERROR 
+SEE IF DONE ALL 

+ 1F NOT: BR 

SET RECORD COUNT 


;SET BA 
;SET READ REVERSE OP-CPDE 


;GO EXECUTE COMMAND 
GO CHECK ERROR 
* SEE IF READ ALL 


+ SET READ FORWARD OP-CODE 


SET RECORD COUNT 
*GO EXECUTE COMMAND 
+GO CHECK ERRORS 

IF DONE ALL 


* SEE IF DONE PE 
71F SO: BR 
; SELECT NEXT DENSITY 


* SEE iF NRZ ONLY 

7 1F SO: BR 
; RESET RECORD COUNT 
>GO DO NEXT CENSITY 
>RETURN TO SCHEDULAR 


SEQ 0044 


CZTUBGO TMOZ2 - TU16/TE16 BSC FC 


C2TUBG. P11 


006104 
006106 
006114 
006122 
006126 
006134 
006142 


006452 


O05-DEC-77 12: 39 


000240 
012767 
012767 


005367 


017242 
001700 
003400 
000100 
177777 
177700 
177740 
004344 
001000 
040000 
000061 
102300 
000010 
003150 


016145 
003364 
172544 


000466 
000001 
000001 


000001 
172420 


000100 
000176 


177701 
000033 
003030 
016216 
003246 
172426 


000070 


000031 
172334 


002762 
016171 
003200 
172360 
000064 
172274 


172256 
172254 


MACY11 30(1046) 


172572 
172672 


172566 
011466 
172546 
172542 


172546 
172536 
172602 


172544 
172370 


172470 


172414 
172410 


172406 
172446 


172352 


172406 


172304 


FT14: 


FTI4A1: 


FT14A: 


FT14A2: 


FT1I4AS: 


FTI4B: 


05-DEC-77 


*SPACE TESTERXEX 


#MSFT14, EMADDR 


#1700, UDES 
PC, RWND 
#100, RCNT 
#-1,WDATA 
#-40, WCNT 
PC, INIT1 
#1000, OPDYX 


#40000, RDYDX 


#61, FUN 


#102300, STMSK 


#10,aCS 
PC, EXEC 


#MSG46, ERRP 
PC, ERCHK 
SERFL 
FT14AZ 
FTI4Xx 
#1-FCNT 
#1,FCNT 
FTI4AZ 
#1,WCNT 
RCNT 
FT14A 


#100, RRD 
#176,RFD 


"-77, SCNT 
#33, FUN 

PC, EXEC 
#MSG48, ERRP 
PC, ERCHK 
SERFL 

FT14X 

PC, FTI4RR 


#31, FUN 


PC, EXEC 
#M1SG47, ERRP 

PC, ERCHK 

SERFL 

FTI4X 

PC, FTIYRE 


G 4 
12:40 PAGE 


45 


;SET TEST HEADER 

;SET NRZ,. NORMAL 

;GO INITIALIZE 

;SET NUMBER OF RECORDER 
;SET DATA PATTERN 

; PRESET FRAME CNT 
;PRESET WORD CNT 

;GO REWIND 


SET WRITE OP-CODE 

+MASK DATA RELATED ERRORS 

; INHIBIT BUS ADDRESS INCREMENT 
;GO EXECUTE COMMAND 


SET ERROR CODE 
GO CHECK ERRORS 


+SEE IF ERROR 


+ 1F NOT: BR 

ELSE EXIT 

BUMP FC 

*>SEE IF SHOULD BUMP WC 
7 1F NOT: BR 

;BUMP WC 

; SEE 1F DONE ALL 
7;WRITE ALL RECORDS 


PRESET RECORD POSITION 


*SET SPACE AMOUNT 
SET OP-CODE SPACE REVERSE 
GO EXECUTE COMMAND 
SET ERROR CODE 
+GO CHECK ERRORS 

SEE IF ERROR 

7 1F SO: BR 

>GO READ REVERSE + CHECK DATA 


SET SPACE FORWARD OP-CODE 
SET SPACE AMOUNT 

+ 1F DONE: BR 

+GO EXECUTE COMMAND 

SET ERROR CODE 

>GO CHECK ERROR 

oS 1F ERROR FLAG 

| 


/DECREMENT SPACE AMOUNT 
+ 1F DONE: BR 

;>BUMP DATA EXPT 

*BUMP DATA EXPT 


BR 
+ GO READ FORWARD FOR POSITION CHECK 


ae 
SEQ 0045 


CZTUBGO TNOZ2 - TU16/TE16 BSC FC 


CZTUBG. P11 


006456 
006460 
006462 
006470 
006476 
006502 
006504 
006510 
006514 
006516 
006522 
006524 
006532 
006536 
006542 
006546 
006550 
006554 
00655¢ 
006560 
006566 
006570 
006574 
006600 
006604 
006610 
006614 
006622 
006624 
006630 
006634 
006642 
006644 
006650 
006652 
006656 
006662 
006666 
006672 
006674 
006700 
006704 
006710 
006714 
006720 
006724 
006730 
006734 
006736 
006740 
006744 
006750 
006752 
006760 
006762 
006770 


O5-DEC-77 12: 39 


000725 
000240 
012767 
012767 
004767 
000240 
016705 
020577 
001020 
000167 
000240 
012767 
004767 
016705 
020577 
001003 
004767 
000207 
000240 
032777 
001060 
012704 
004767 
012704 
004767 
012704 
032767 
001402 
012704 
004767 
032767 
001003 
012704 
000402 
012704 
004767 
012704 
004767 
010503 
042703 
004767 
012704 
004767 
017703 
042703 
004767 
005777 
100001 
000000 
004767 
005767 
001011 
032767 
001005 
012767 
000167 


021342 
000077 
002672 


172220 
172072 


000026 


000071 
002636 
172170 
172040 


003752 


020000 


017242 
004 354 
015010 
004 344 
015243 
002000 


015251 
004320 
000002 


015223 


015203 
004272 
015256 
004262 


177700 
004414 
015266 
004240 
171666 
177700 
004370 
171704 


005004 
172052 
002000 


002300 
177126 


MACY11 30(1046) 


172224 
172310 


172254 


‘72izra2 


172144 


72034 
172024 


05-DEC-77 

BR FTI4B 
FTI4RR: NOP 

MOV #RDATA, BADDR 

MOV #77,FUN 

JSR PC. EXEC 

NOP 

MOV RRO, RS 

CMP RS, oFC 

BNE FTIYRER 

JMP FTI4EC 
FTIYRF: NOP 

MOV #71,FUN 

JSR PC. EXEC 

MOV RFD. RS 

CMP RS, aFC 

BNE FTIYRER 
FTI4EC: JSR PC, INITI 

RTS PC 
FTIYRER: NOP 

BIT #20000. dSWR 

BNE FTI4RZ 

MOV #MSFT14,R4 

JSR PC, TTOUT 

MOV #NSG9. RY 

JSR PC, TTOUT 

MoV #MSG20, R4 

BIT #2000. UDES 

BEQ FT14RO 

MOV #MSG21. R4 
FT14RO: JSR PC, TTOUT 

BiT #2, FUN 

BNE FTI4R1 

MOV #MSG17.R4 

BR FTIYRZ 
FTIYR1I: MOV #MSG16, R4 
FTI4R2: JSR PC, TTOUT 

MOV #MSG22, R4 

JSR PC, TTOUT 

MoV R5,R3 

BIC #177700,R3 

JSR PC, OCTP 

MOV #MNSG23,R4 

JSR PC, TTOUT 

MoV aFC,R3 

BIC #177700,R3 

JSR PC. OCTP 
FTIYR3: TST d5WR 

BPL FTI4Xx 

HALT 
FT14X: JSR PC, CKSWR 

TST NR ZOF 

BNE FTI4XX 

BIT #2000, UDES 

BNE FT14XX 

MoV tee a UDES 

JMP FT14A 


H 4 
12:40 PAGE 


RS it, 


46 SEQ 0046 


;SET BA 
;SET READ REVERSE OP-CODE 
;GO EXECUTE COMMAND 


+SEE IF CORRECT RECORD 
+ 1F NOT: BR 
GO CLEAR RH11 ERROR BIT 


SET READ FORWARD OP-CODE 
GO EXECUTE COMMAND 


;SEE IF CORRECT RECORD 
;1F NOT: BR 

; CLEAR RH 

; RETURN 


/SEE IF PRINT INHIBITEO 
> 1F SO: BR 


;PRINT HEADER 


>PRINT ERROR TYPE 
*SET NRZ TAG POINTER 


*ELSE SET PE TAG POINTER 
>PRINT TAG 

; SEE IF READ REVERSE 

7 IF SO: BR 


>GO PRINT 
PRINT FRWD/REV 
PRINT EXPT TAG 


;MASK RECORD NUMBER 
PRINT EXPT RECORD NUMBER 


+PRINT RCVD TAG 


;MASK RECORD NUMBER 

;PRINT ACTUAL RECORD NUMBER 
>SEE IF HALT ON ERROR 

7 1F NOT: BR 


;CHECK FOR CNTL G 
;SEE IF NRZ ONLY 
> IF SO: BR 
>SEE IF DONE PE 
; IF SO: BR 
;SET TO PE 
>DO IN PE 





: 
CZTUBGO TMOZ2 - TU16/TE16 BSC FC MACY11 30(104%6) O5-DEC-77 12:40 PAGE 47 SEQ 0047 
C2TUBG P11 05-DEC-77 12: 39 


1620 006774 000167 174136 FTI4XX: JMP TSCO2 RETURN TO SCHEDULAR 


CZTUBGO THOZ - TU16/TE16 BSC FC 


C2TUBG. P11 


007000 
007002 
007006 
007014 
007022 
007030 
007034 
007042 
(07050 
007056 
007064 
007070 
007076 
007102 
007106 
007110 
007114 
007116 
007120 
007124 
007132 
007140 
007146 
007152 
007154 
007162 
007170 
007174 


O5-DEC-77 12: 39 


000240 


012767 
004767 
005767 
001032 
005367 
001363 
000240 
004767 
012767 
012767 
012767 
004767 
000240 
012767 
012767 
004767 
006167 


171750 
000100 
000010 
017264 
002472 
021342 
001700 
000025 
000200 
002304 
016145 
002522 
171702 


171606 


002402 
177600 
000071 
000040 
002222 


016541 
020000 
002430 
173736 


J 4 
MACY11 30(1046) O5-DEC-77 12:40 PAGE 


171720 
171714 
171656 


171652 
171744 
171730 
171636 


171626 


171566 
171646 
171566 


171542 
171566 


FT1i5: 


FT1i5A: 
FT1SB: 


FT15x: 


ERASE TESTREKEX 


STMSK 
#100, RDYDX 


#10, OPDYX 
#MSFT15, EMADDR 
RWND 


PC, 
#RDATA, BADDR 
#1700, UDES 


PC, RWNO 
#-200, WCNT 
#71,FUN 
#49, RDYDX 
PC, EXEC 


#MSG60, ERRP 
#20000, STMSK 
PC, ERCHK’ 
TSCD2 


48 


;SET TEST HEADER 
;REWIND 

;SET BA 

;SET NRZ- NORMAL 

;SET ERASE OP-CODE 

;SET TO ERASE 128 TIMES 
;GO EXECUTE COMMAND 
;SET ERROR CODE 

;GO CHECK ERRORS 

;SEE IF ANY ERRORS 

> IF SO EXIT 

;SEE IF DONE ERASING 

> 1F NOT: BR 


+ REWIND 

* SET WC 

SET READ FORWARD OP-CODE 
SET DELAY 

>GO EXECUTE COMMAND 


SET ERROR CODE 


GO CHECK ERRORS 
RETURN TO SCHEDULAR 


SEQ 0048 


CZTUBGO TMOZ - TU16/TE16 BSC FC MACY11 30(1046) 


CZTUBG. P11 


007200 
007202 
007210 
007216 
007224 
007232 
007236 
007244 
007252 
007260 
007264 
007272 
007300 
007304 
007310 
007316 
007322 
007330 
007336 
007342 
007346 
007354 
007360 
007366 
007372 
007376 
007404 
007406 
007412 
007414 
007422 
007426 
007432 
007436 


O5-DEC-77 12: 39 


000240 


012767 
004767 
004767 
012767 
004767 
012767 
004767 
004767 
032767 
001012 
005767 
001007 
012767 
004767 
000167 
004767 
000167 


000001 
001000 
017306 
001700 
002270 
177760 
177770 
000027 
002110 
001000 
015072 
002320 
002662 


002000 
171410 


002300 
003100 
177604 
003012 
173474 


171524 
171520 
171462 
171562 
171452 
171446 
171526 
171464 
171424 
171470 
171426 
171366 
171432 


171336 


171410 


171372 


FT16: 


FT16A: 
FT16B: 


FT16x: 


05-DEC-77 


K 4 
12:40 PAGE 49 


+ TAPE MARK WRITEZREAD TESTXXEKK 


#1, RDYDX 
#1000, OPDYX 


#MSFT16, EMADDR 


#1000, STNSK 
#MSG13, ERRP 
PC, ERCHK 

PC TMCHK 
#71,FUN 

PC. EXEC 
#MSG14, ERRP 
PC, ERCHK 
PC, TMCHK 
#2000, UDES 
FT16X 

NRZOF 

FT16X 
he UDES 


+SET HEADER 
*SET ‘s NRZ, NORMAL. ODD 


=10 

;SET WRITE TAPE MARK OP-CODE 
+GO EXECUTE COMMAND 
+ SET FOR FCE MASK 
SET ERROR CODE 
GO CHECK ERROR 
GO SEE IF TM SET 
SET USED REVERSE OP-CODE 
+GO EXECUTE COMMAND 
+SET FCE ERROR MASK 

SET ERROR CODE 

GO CHECK ERRORS 

;GO SEE IF TM SET 

;SET READ FORWARD OP-CODE 
+GO EXECUTE COMMAND 

+ SET ERROR CODE 

+TO CHECK ERRORS 

;GO SEE IF TM SET 

+SEE IF DONE PE 

7 1F SO: BR 

SEE IF NRZ ONLY 

;1F SO: BR 

;SET PE. NORMAL 

; INITIALIZE 

>DO IN PE 

;D00 ITERATIONS 

;RETURN TO SCHEDULAP 


SEQ 0049 


CZTUBGO TMOZ - TU16/TE16 BSC FC MACY11 30(1046) 


CZTUBG. P11 


007442 
007446 
007454 
007462 
007466 
007474 
007502 


010010 


O05-DEC-77 12: 39 


005067 
012767 
012767 
004767 
012767 
012767 
012767 
004767 
012767 
012767 
094767 
005767 
001144 
004767 
000240 
000240 
032767 
001046 
062767 
016767 
012767 
012767 
012767 
012767 
000240 
000240 
004767 
012767 
012767 
004767 
005767 
001073 
005367 
001356 
000167 
000240 
012767 
012767 
012767 
012767 
004767 
004767 
012767 
004767 
005767 
001035 
004767 
005367 
001357 
022767 
001410 
012767 
012767 


171254 


171250 
002424 


000100 


000020 
171126 
177600 
177400 
017630 
000061 


001536 
015072 
102300 
001746 
171126 


171060 
177570 


000033 
015203 
177600 
000005 
002572 
001434 
001000 
001652 
171032 


002206 
170732 


000031 


015223 
000031 


71232 
71332 


71312 
71232 
171226 


171234 
171174 


a ~~ = 


171142 


171132 
171152 
171114 
171104 
171074 
171160 


171060 
171104 


171100 
171010 
171016 
170772 


171010 


171006 


170714 
170770 


FT1?: 


FT1i7A—A: 
FT17B: 


FT17C: 


FT170D: 


FT1701: 


FT17€: 


O5-DEC-77 


‘9% 
12:40 PAGE 50 


; TAPE MARK SPACE TESTXXSKEXEREE 


RCNT 
#MSFT17, EMADDR 


#1700. UDES 
PC, RWND 


#27, FUN 
#40000, RDYDX 
#40000, OPDYX 


PC, EXEC 
#102300, STHSK 


#MSG15, ERRP 


PC, THCHK 
#100, RCNT 
FT170 

#20, RCNT 
RCNT, TEMP 1 


#-200, WCNT 
#-400. FCNT 


#WDATA, BADDR 


#61, FUN 


PC, EXEC 
#MSG12, ERRP 


#102300, STMSK 


PC, ERCHK 
SERFL 
FT17X 
TEMP 1 
FT17C 
FT17B 


#33, FUN 
#MSG16. ERRP 
#-200. SCNT 


#MSG17, ERRP 
#31. FUN 


+ SET HEADER 
*+SET TO NRZ 
+REWIND TAPE 


+SET DRY DELAY 

+SET OP ay 

+GO WRITE T 

MASK DATA RELATED ERRORS 
+ SET ERROR TYPE 

GO CHECK ERROR 

+SEE IF ERROR 

7 1F SO: BR 

+ GO See IF TM SET 


;SEE IF DONE PATTERN 
; IF SO: BR 

;ADD 20 TO RECORD COUNT 
; SAVE RECORD COUNT 
;WC=128 

+ FC=256 

;BASWRITE BUFFER 

;SET WRITE OP CODE 


GO WRITE 

SET ERROR CODE 

;MASK DATA RELATED ERRORS 
;GO CHECK ERROR 

+SEE IF ERROR 


7 1F SO: BR 

*>SEE IF DONE ALL 
> 1F NOT: BR 
*ELSE GO DO TM 


SET SPACE REVERSE 

SET ERROR CODE 

+SET TO 200 RECORDS 

;SET NUMBER OF OPS TO DO 

*GO INIT 

+GO SPACE 

+SET ERROR MASK 

+GO CHECK ERROR 

SEE IF ERROR 

+ 1F SO: BR 

*GO SEE IF TM SET 

SEE IF DONE SPACES 

+ 1F NOT: BR 

*SEE IF DONE FORWARD 
+ IF SO: BR 


; SET ERROR CODE 
SET TD SPACE FORWARD 


SEQ 0050 


nm 4 
CZTUBGO TMOZ - TUI6/TE16 BSC FC MACY11 3001046) O5-DEC-77 12:40 PAGE 51 


C2TUBG. P11 


010016 
010022 
010030 
010032 
010036 
010040 
010046 
010052 


05-DEC-77 12: 39 


000167 
032767 
001010 
005767 
001005 
012767 
000167 
000167 


177672 
002000 


170764 
002300 


177410 
173060 


170764 


170746 


FTI7F: 


FT17X: 


FT1701 
#2000, UDES 
FT17X 
NRZOF 
FT17x 
#2300, UDES 
FT17A 
TSCO2 


+00 FORWARD 

;SEE IF DONE PE 

;1F SO: BR 

;SEE IF NRZ ONLT 

7 lF : BR 

;SET TO PE 

;GO PE 

;RETURN TO SCHEDULAR 


SEQ 0051 


CZTUBGO TMOZ2 - TU16/TE16 BSC FC 


CZ2TUBG. P11 


010056 
010060 
010066 
010072 
010100 
010104 
010112 
010120 
010126 
010134 
010142 
010146 
010154 
010160 
010164 
010166 
010174 
010202 
010210 
010214 
010220 
010226 
010234 
010242 
010246 
010252 
010260 
010262 
010266 
010270 
010276 
010302 
010306 
010312 


O05-DEC-77 12: 39 


000240 
012767 
004767 
012767 
004767 
012767 
012767 
012767 
012767 
012767 
004767 
012767 
004767 
005767 
001050 
012767 
012767 
062767 
004767 
004767 
012767 
012767 
162767 
004767 
004767 
032767 
001012 
005767 
001007 
012767 
004767 
000167 
004767 
000167 


170624 


015203 
000057 
000376 
001160 
001404 
015223 
000051 
000376 
001126 
001352 
002000 


170534 


002300 
002224 
177626 
002136 
172620 


N 4 
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170620 
170716 


170602 
170576 
170572 
170660 
170644 


170550 


170530 
170604 
170504 


170476 
170552 
170452 


170534 


170516 


FT20: 


F T20A: 


FT20B: 


FT20C: 


FT20x: 


*WRITE CHECK TEST&RRKKESEEX 


PC, ERCHK 
#2000. UDES 
FT20X 

NR ZOF 
FT20X 
#2300, UDES 


#MSFT20, EMADOR 
P D 


;SET HEADER 
+ REWIND 


+GC SET PATTERN 3 

+SET BA 

;SET FC 

> SET WC 

+SET NRZ NORMAL 

+SET WRITE OP CODE 

+GO WRITE RECORD 

;SET ERROR CODE 

+GO CHECK ERROR 

;SEE IF ERORR 

+ 1F SO: BR 

+;SET REVERSE ERROR TAG 
+;SET REVERSE WRITE CHECK OP-CODE 
>SET BA FOR REVERSE CHECK 
+GO DO REVERSE CHECK 

>GO CHECK ERROR 

+SET FORWARD TAG 

;SET FORWARD CHECK OP CODE 
+SET BA FOR FORWARD CHECK 
>GO DO FORWARD CHECK 

+GO CHECK ERROR 

+SEE IF DONE PE 

> 1F SO: BR 

;SEE IF NRZ ONLY 

;1F SO: BR 

sELSE SET PE 

>;GO INIT 

;DO IN PE 

>D0 !TERATIONS 

>RETURN TO SCHEDULAR 


SEQ 0052 


~ sa 


= 
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010316 
010324 
010330 
010336 
010342 
010350 
010356 
010364 
010372 
010400 
010404 
010412 
010416 
010422 
010426 
010430 
010434 
010442 
010450 
010454 
010456 
010462 
010470 
010476 
010504 
010512 
010516 
010524 
010530 
010532 
010540 
010546 
010554 
010560 
010566 
010570 
010576 
010600 
010606 
010614 
010616 
010624 
010632 
010636 
010642 





012767 
004767 
012767 
004767 
012767 
012767 
012767 
012767 
012767 
004767 
012767 
004767 
004767 
004767 
000240 
004767 
012767 
012767 
004767 
000240 
004767 
012767 
012767 
012767 
012767 
004767 
012767 
004767 
000240 
052777 
012767 
012767 
004767 
022777 
001423 
022777 
001417 
012767 
022777 
101493 
012767 
012767 
004767 
004767 
000167 





017426 
001176 
000003 
001670 
017630 
176340 
177160 
001700 
000061 
000770 
015072 
001206 
000752 
001176 


001072 
177160 
177470 
000720 


001044 
021342 
177160 
177470 
000071 
000656 
015135 
001074 


000010 
176340 
177160 
000614 
001440 


001441 


016112 
001440 


016043 
010454 
173334 
001606 
172270 


MACY11 30(1046) 


170362 FT21: 
170460 


170344 
170340 
170334 
170422 
170406 


170312 


170254 
170250 


FT21A: 


170224 
170220 
170214 
170274 


170200 
170050 
170150 
170144 
170020 
170010 


170140 
167772 


170122 
170140 1% 


FT21X: 


05-DEC-77 


ERASE HEAD TESTEXKXE 
oy hee ee onmaage 


RUDATA, BADDR 
#-1440, FCNT 
#1700, UDES 


PC, ERCHK 


PC, RWND 
#-310,WCNT 
PC, EXEC 


PC.RWND 
#RDATA, BADDR 
#-620, FCNT 
#-310, WCNT 
#71, FUN 

PC, EXEC 
#MSG14, ERRP 
PC, ERCHK 


#10, aCS 

#- 1440, FCNT 
#-620. WCNT 
PC, EXEC 
#1440, OFC 
FT21x 

#1441, OFC 
FT21x 
#MSG4S, ERADD 
#1440, aFC 

1$ 

#MSG44, ERADD 
#FT21A. SCOLP 
PC. FTSER 

Pc, ITER 
TSCD2 


B 5 
12:40 PAGE 


53 


+ SET Ads HEADER 
+GO REWIND 


;GO SET PATTERN 3 
SET BASWRITE BUFFER 
+SET FC= 800 


0 
+SET NRZ, NORMAL 
SET WRITE OP-CODE 
/GO DO WRITE 1 
+SET ERROR CODE 
+GO CHECK FOR ERROR 
YES DO WRITE 2 
+ YES CHECK FOR ERROR 


GO REWIND 
SET FC=400 
*SET WC=200 
;GO REWRITE RECORD 1-WH TO EH 


>REWIND 

;SET BA=READ BUFFER 
; SET FC=400 

; SET WC=200 

;SET READ OP-CODE 
;GO READ RECORD 1 
;SET ERROR CODE 

;GO CHECK FOR ERROR 


; INHIBIT BA INCREMENT 
;SET FC=800 
;SET WC=400 
+GO READ RECORD 2 
;SEE IF READ RECORD 2 
> 1F SO: BR 
;++F CHECK FOR 801 FRAMES 
;++F IF SO: BR 
;++F SET ERROR CODE 
:++F MORE THAN 801 FRAMES ? 
;++F IF SO: BR 
;++F SET ERROR CODE 
;SET SCOPE ADDRESS 
:60 PRINT ERROR 
;GO SEE IF ITERATION 
> RETURN TO SCHEDULAR 


SEQ 0053 


CZTUBGO a - TU16/TE16 BSC FC 
CZ2TUBG. P11 


O5-DEC-77 12: 39 


010646 
010654 
010660 
010664 
010672 
010700 
010706 
010714 
010722 
010726 
010730 
010732 
010734 
010742 
010750 
010752 
010756 
010764 
010770 
010772 
011000 
011006 
011012 
011020 
011022 
011030 
011036 
011042 
011046 


012767 
004767 
012700 
012767 
012767 
012767 
012767 
012767 
004767 
005300 
001374 
000240 
012777 
032777 
001774 
004767 
012767 
004767 
000240 
012767 
012767 
004767 
032777 
001410 
012767 
012767 
004767 
004767 
000167 


017455 


000446 


000007 
000200 


001550 
000010 
000404 


016243 
102300 
000612 
000002 


016271 
010646 
173130 
001402 
172064 


MACY11 30(1046) 


170032 F122: 


170122 
170014 
170010 
170004 
170064 


FT22A—: 


167636 
167642 


167750 
167724 
167750 


167572 


167716 
167734 


FT22x: 


FT22B: 


05-DEC-77 


c 65 
12:40 PAGE 54 


SEQ 0054 


+BUFFERED COMMAND TEST&XKKX 


MOV #MSFT22, EMADDR 
JSR PC, RWND 

MOV #3,R0 

MOV #1700, UDES 
MOV #WDATA, BADOR 
MOV #-1000, FCNT 
MOV #-400, WCNT 
MOV #61, FUN 

JSR PC, EXEC 

DEC RO 

BNE FT22A 

NOP 

MOV #7,0C1 

BIT #200. d0S 

BEQ FT22B 

JSR PC, INIT1 

MOV #10, RDYDX 
JSR PC, EXEC 

NOP 

MOV #MSG49, ERRP 
MoV #102300, STMSK 
JSR PC. ERCHK 

BIT #2, 00S 

BEQ FT22x 

MOV #MSG50, ERADD 
MOV #FT22, SCOLP 
JSR PC, FT3ER 

JSR PC, ITER 

JMP TSCD2 


+ SET oA id HEADER 
GO REWIND 

; SET NUMBER OF WRITES 

+SET TO NRZ NORMAL 

+SET BASWRITE BUFFER 

+SET FC=1000 

*+SET WC=400 

; SET et OP-CODE 

GO DO WRITE 

+SEE IF MOONE ALL 

+ 1F NOT: BR 


+ START REWIND 


; INITIALIZE 
+ SET LONG READY DELAY 
+ ISSUE BUFFERED WRITE 


SET ERROR CODE 
MARK DATA ERROR 
GO CHECK ERROR 
+SEE IF BOT IS SET 
+ 1F NOT: BR 

>; SET ERROR CODE 


+GO DO ERROR 


7GO SEE IF ITERATION 
RETURN TO SCHEDULAR 


0 5 
CZTUBGO TMO2 - TU16/TE16 BSC FC MACY11 30(104%6) O5-DEC-77 12:40 PAGE 55 SEQ 0055 
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asi *READ-IN PRESET TESTHKEKX 

1884 011052 005767 167634 FT23: TST SLVN ; SEE IF SLAVE SELECT=0 
1885 011056 001103 BNE FT23xX 1F NOT: BR 

1886 011060 012767 017512 167620 MOV #MSF 123, EMADOR SET at HEADER 
1887 011066 004767 001434 JSR PC, INIT1 +GO _IN 

1888 011072 012767 001700 167714 MOV #1700, UDES + SET 0 "Wz NORMAL 
1889 011100 012767 017630 167606 MOV #WDATA, BADDR +SET BA=WRITE BUFFER 
1890 011106 012767 177400 167602 MOV #-400, FCNT ;SET FC=400 

1891 011114 012767 177600 167576 MOV #-200, WCNT +SET WC=200 

1892 011122 012767 000061 167656 MOV #61, FUN ;SET WRITE OP-CODE 
1893 011130 004767 000240 JSR PC, EXEC GO 0O WRITE : 
1894 011134 000240 NOP 

1895 011136 004767 001364 JSR PC, INIT1 + INITIALIZE 

1896 011142 012767 000021 167636 MoV #21,FUN +SET READ-IN PRESET OP CODE 
1897 011150 004767 000220 JSR PC, EXEC GO CO COMMAND 

1898 0611154 005000 CLR RO 

1899 011156 012703 000004 MOV #4,R3 >SET MULT 

1900 011162 032777 O20C00 167422 FT23A: BIT #20000, a0S +SEE IF PIP RESET 
1901 011170 001404 BEQ FT238 ,1F SO: BR 

1902 011172 C05300 DEC RO 

1903 011174 001372 BNE FT23A ;AWAIT PIP RESET 
1904 011176 005303 DEC R3 

1905 011200 001370 BNE FT23A * DELAY 

1906 011202 032777 O00002 167402 FT23B: BIT #2, 00S ;SEE IF BOT 

1907 011210 001010 BNE FT23C : 1F SO: BR 

1908 011212 012767 016327 167526 MOV #MSG51,ERADD ;SET ERROR CODE 

1909 011220 012767 011052 167544 MOV #FT23, SCOLP 

1910 011226 004767 172740 JSR PC, FT3ER +GO DO ERROR 

1911 011232 012701 141000 FT23C: MOV #141000, R1 SET EXPT TC 

1912 011236 016700 167370 MOV TC, RO +SET TC ADDRESS 

1913 011242 020110 CMP R1, (RO) ;SEE IF EXPT=RCVD 
1914 011244 001410 BEQ FT23x 7 1F SO: BR 

1915 011246 012767 016363 167472 MOV #MSG52, ERADD *SET ERROR CODE 

1916 011254 012767 011052 167510 MoV #FT23, SCOLP *CLEAR SCOPE ADDRESS 
1917 011262 004767 172414 JSR PC, FTZER GO DO ERROR 

1918 011266 000167 171644 FT23x: JMP TscOz >RETURN TO SCHEOULAR 
roe 


CZTUBGO THOZ - TUI6/TE16 BSC FC 


CZTUBG. P11 


011272 
011300 
011302 
011310 
011314 
011322 
011326 
011330 
011332 
011340 
011342 
011346 
0112354 
011360 
011364 
011370 


O5-DEC-77 12: 39 


032777 
001033 
012767 
004767 
012777 
012700 
005300 
001376 
032777 
001407 
00£067 
012767 
004767 
012704 
004767 
000167 


004000 


017545 
001212 
000003 
004000 


010000 


167424 
016402 
172612 
016426 
001564 
171542 


MACY11 30(1046) 


167340 


167376 


167256 


167252 


167372 


FT24: 


FT24—A: 


FT24xX: 


FT24Xx: 


05-DEC-77 


E 56 
12:40 PAGE 56 


*REWIND: OFF LINE TESTHXXKX 


JMP 


Pe egg 
FT24X 

ans zy, EMADOR 
#4000, RO 

RO 

FT24A 
#10000. d0S 
FT24X 

SCOLP 
#MSG53, ERADD 
PC, FT3ER 
#MSGS4, RY 


PC, TTOUT 
TSCD2 


+SEE IF IN CONTINUOUS MODE 
+1F SO: BR 

;SET TEST HEADER 

GO INITIAIZE 

+ ISSUE REWIND: OFF LINE COMMAND 


; DELAY 


+SEE IF MOL IS RESET 
;1F SO: BR 

ASSURE NO SCOPE 
+SET ERROR CODE 

GO DO ERROR 


PRINT ON LINE REQUEST 
RETURN TO SCHEDULAR 


SEQ 0056 


CZTUBGO TMOZ2 - TUI6/TE16 BSC FC 


CZTUBG. P11 


1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 


011374 
011376 
011404 
011412 
011420 
011426 
011434 
011436 
011444 
011446 
011454 
011456 
011464 
011466 
011472 
011474 
011502 
011504 
011506 
011510 
011512 
011514 
011520 
011522 
011524 


O5-DEC-77 12: 39 


000240 
056777 
016777 
016777 
016777 
022767 
001404 
022767 
001003 
016777 
000240 
016777 
000240 
016703 
005004 
032777 
001004 
005304 
001372 
005303 
001370 
016703 
005303 
001376 
000207 


167412 
167310 
167300 
167270 
000031 
000033 
167266 
167324 
167242 


000200 


1672te 


F 5 
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167226 
167170 
167166 
167156 
167352 
167342 
167132 


167114 


167110 


+ COMMAND EXECUTE SUBROUTINE X&X4x 


EXEC: NOP 
BIS UDES, dTC ;LOAD TAPE CONT 
MoV WCNT, dWc + LOAD WC 
MOV FCNT, aFC ;LOAD FC 
MOV BADOR, dBA ;LOAD BA 
CMP #31,FUN +SEE IF SPACE FORWARD 
BEQ EXECA ; IF SO: BR 
CMP #33, FUN ;SEE IF SPACE REVERSE 
BNE EXECB ; 1F NOT: BR 
EXECA: MOV SCNT, OFC ;SET SPACE COUNT 
EXECB: NOP 
aoe FUN, C1 ;LOAD OP-CODE + GO 
N 
MOV RDYDX, R3 ;SET DELAY 
CLR Pu 
EXECC: BIT #200, a0S ;SEE IF ORY 
BNE EXECX > IF SO: BR 
DEC RY 
BNE EXECC 
DEC R3 ;DELAY FOR ORY 
BNE EXECC 
EXECX: MOV OPDYX, RZ 
EXECXA: DEC R3 > DELAY 
BNE EXECXA 
EXECXX: RTS PC ;RETUPN TO CALLER 


CZTUBGO THOZ - TUI6/TE16 Ag MACY11 30(1046) 
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1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 


011526 
011530 
011534 
011542 
011546 
011550 
011552 
011560 
011562 
011570 
011572 
011576 
011602 
011606 
011612 
011616 
O1lec2 


05-DEC-77 


000240 
004767 
012777 
012700 
005300 
001376 
032777 
001374 
032777 
001012 
016704 
004767 
012704 
004767 
000167 
004767 
000207 


000772 
000007 
040000 


020000 
000002 


167110 
001352 
014606 
001342 
171320 
000704 


167036 


167032 
167022 


RWND: 


RWNDA: 
RWNDB: 


RWNDX: 


G 5 
O5-DEC-77 12:40 PAGE 


REWIND SUBROUTINE XKKKX 


PC, INITI 
#7,aC1 
#40000, RO 
RO 


RWNDA 
#20000, d0S 
RWNOB 

#2, 00S 
RWNDX 


EMADOR. R4 
PC, TTOUT 


58 SEQ 0058 


; INIT 
START REWIND 


+> DELAY 


;AWAIT PIP 
SEE IF BOT 
+ 1F SO: BR 


PRINT HEADER 


; PRINT REWIND ERROR 
;RETURN TO SECHEDULAR 
, INIT 

;RETURN TO CALLER 
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1989 
1990 
1991 


011624 
011630 
011636 
011644 
011646 
011650 
011654 
011662 
011664 
011672 
011676 
011700 
011706 
011714 
011716 


011722: 


011724 
011730 
011734 
011740 
011744 
011746 
011752 
011756 
011764 
011766 
011772 
011776 
012002 
012004 
012010 
012016 
012020 
012024 
012030 
012034 
012040 
012044 
012050 
012054 
012060 
012064 
012070 
012074 
012100 
012104 
012110 
012114 
012120 
012124 
012130 
012134 
012140 
012144 


O5-DEC-77 12: 39 


005067 
017767 
032777 
001001 
000207 
017704 
032767 
001403 
042767 
046704 
001530 
012767 
032777 
001115 
005767 
001006 
005267 
016704 
C04 767 
016704 
001414 
004767 
012704 
032777 
001402 
012704 
004767 
016704 
001402 
004767 
032777 
001010 
012704 
004767 
016703 
004767 
012704 
004767 
017703 
004767 
017793 
004767 
017703 
004767 
017703 
004767 
017703 
004767 
017703 
004767 
017703 
004767 
017703 
004767 


167160 
166756 
040000 


166740 
002000 


000200 
167060 


000001 
020000 


166762 


166754 
166752 
001214 
166760 


001202 
015243 
002000 


015251 
001156 
166724 


001144 
010000 


016515 
001124 
166724 
001260 
014520 
001104 
166524 
001226 
166516 
001216 
166510 
001206 
166502 
001176 
166474 
001166 
166466 
001156 
166460 
001146 
166466 
001136 


167124 
166746 


167132 
167064 


167102 
166724 


166646 


166622 


ERCHK: 


ERPT: 


ERPTAI1: 


ERPTG: 


ERPTA: 


ERPTIA: 


ERPTB: 


ERPTB1: 


EPPTC: 


05-DEC-77 


H 5 
12:40 PAGE 59 


SEQ 0059 


*ERROR CHECK SUBROUTINE XX4%X% 


SE 
MOV aos, OSAV 
BIT #40000. a0S 
ERPT 


BNE 

RTS PC 

MOV ER. RY 

BIT #2000, UDES 
BEQ ERPTAL 


EQ ERPTX 
MOV #1, SERFL 
Bi toe agg aSWR 
BNE ERPTD 

TST HORFL 

BNE ERPTA 

INC HORFL 

MOV EMADOR, R4 
JSR PC, TTOUT 
MOV ERRP, RY 
BEQ ERPTB 

JSR PC. TTOUT 
MOV #MSG20, R4 


BIT #2000, dTC 
BEQ ERPTIA 
MoV #MSG21,R4 
JSR PC, TTOUT 
MOV ERRP1,R4 
BEQ ERPTB1 


JSR PC, TTOUT 
BIT #10000, dSWR 
BNE ERPTC 

MOV #MSG56. R4 
JSR PC, TTOUT 
MOV ITCNT,R3 

SR PC, OCTP 
MOV #MSG1,R4 
JSR PC, TTOUT 


JSR PC, OCTPE 


CLEAR FLAG 
; SAVE DRIVE STATUS REGISTER 
+SEE IF ERROR 
+ 1F SO: 
+ RETURN 
GET ERROR REGISTER 
F PE 


RESET PEF MASK 

;MASK DONT CARE BITS 

;1F NO UNEXPECTED ERRORS: BR 
SET FLAG 

+ . = PRINT ERRORS 
| 

47x 1F DONE HEADER 


F SO: BR 
SET HEADER FLAG 


PRINT HEADER 
GET ERROR CODE 

> 1F NONE: BR 
;PRINT ERROR CODE 
SET NRZ TAG 

*;SEE IF PE 

7 1F NOT: BR 

;ELSE SET PE TAG 
>PRINT TAG 

*SEE IF CODE 2 

7 1F NOT: BR 
PRINT CODE 2 
;SEE IF ITERATION 
> 1F NOT: BR 


PRINT ITER TAG 
PRINT ITERATION 
:PRINT REGISTER TAG 
>PRINT CS1 

PRINT WC 

>PRINT BA 

>PRINT FC 

>PRINT CS2 

*PRINT OS 

;PRINT ER 

>PRINT TC 


-_ 


| 
i 
i 
| 
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2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 


012150 
012154 
012156 
012160 
012164 
012170 


05-DEC-77 


005777 
100001 
000000 
004767 
004767 
000207 


166464 


001564 
000336 


ERPTD: 


ERPTX: 


ERPTXx: 


05-DEC-77 

TST OSWR 

BPL ERPTX 
HALT 

JSR PC, CKSHR 
JSR PC, INIT1 
RTS PC 


i § 
12:40 PAGE 60 


i lF 


NOT: 


+SEE IF = ON ERROR 


CHECK FOR CNTL G 


SEQ 0060 
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012172 
012200 
012202 
012204 
012210 
012212 
012220 
012224 
012230 


012232 
012234 
012240 
012244 
01224€ 
012250 
012254 
012262 
012264 
012270 
012274 
012300 
012302 
012304 
012310 
012314 
012316 
012320 
012322 


012324 
012330 
012334 
012336 
012340 
012342 


012346 
012350 


05-DEC-77 12: 39 


032767 
001401 
000207 
005767 
001374 
012767 
004767 
005067 
000207 


000240 
012703 
016701 
000241 
006101 
000171 
032777 
001410 
012702 
012701 
042721 
005302 
001374 
012702 
012701 
005021 
005302 
001375 
000207 


012701 
012702 
010123 
005302 
001375 
000167 


005001 
000167 


000004 


166600 
016525 


177454 
166476 


017630 
166552 


001040 
010000 
000640 
017630 
140300 


000640 
021342 


177777 
000640 


177706 


177754 


166562 


166506 


166344 


TMCHK: 


TMCHKO: 
TMCHK1: 


DSUP: 
OSsO: 


DS1: 


OS3: 
DS4: 


DAT1: 
DATIA: 
DAT1B: 


DAT2: 


J 5 
O5-DEC-77 12:40 PAGE 61 


+ TAPE MARK STATUS CHECKXRXSKRE4EE 





SEQ 0061 


BIT #4, DSAV ;SEE IF TM SET \ 
BEQ TNCHK1 : IF NOT: BR 

RTS PC ZELSE RETURN 

TST SERFL 7SEE IF HAD ERROR 

BNE THCHKO 7 IF SO: BR 

Mov #MSGS7,ERRP1  ;SET ERROR CODE 2 

ISR PC, ERPTG :GO PRINT TM ERROR 

CLR ERRP1 :CLEAR CODE 2 FLAG 

RTS PC RETURN 


;DATA SETUP ROUTINE XKXXKXXX%x 


NOP 

MOV #WDATA, RS +R3 = ADDRS OF WRITE BUFFER 

oe PATRN, R1 +R1 = PATTERN SELECTOR 
L 

ROL R1 MAKE PATTERN SELECTOR EVEN 
JMP @DATBL(R1) a GENERATE PATTERN 

BIT #10000. d0T +SEE IF SEVEN TRACK 

BEQ DS3 + 1F NOT: BR 

MOV #640, R2 ;SET BUFFER SIZE 

MoV #WOATA, R1 ;SET START OF BUFFER 

Bic #140300, (R1)+ >MASK FOR 7 CH 

DEC R2 +SEE IF DONE 

BNE DS2 7 1F NOT: BR 

MOV #640, R2 +RZ2=BUFFER SIZE +2 
MOV #RDATA, RI ;R1=READ DATA START 
CLR (R1)+ CLEAR BUFFER 

DEC R2 +SEE IF DONE ALL 

BNE DS4 7 1F NOT: BR 

RTS PC 7 EXIT 

ALL ONESHXKKKEKEKK 

MOV #-1,R1 ;R1=DATA 

MOV #640,R2 *R2=WORD COUNT +2 

MOV R1,(R3)+ +LOAD BUFFER 

DEC R2 ;SEE IF DONE 

BNE DAT1B 7 1F NOT: BR 

JMP DS1 ; RETURN 

ALL ZEROSKAKKKEKEES 

CLR R! ;R1=DATA 

JMP DATIA >LOAD BUFFER 


K 5 
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He! +ONE/ZERO IN ALTERNATING CHARACTERSKEXKXKXKXE 
2103 012354 012701 125125 DATS: MOV #125125.R1 +R1=DATA 
oie 012360 000167 177744 JMP DATIA ;LOAD BUFFER 
tps. FALL BITS O-377KKKKKKKERE 
2108 012364 005001 DAT4: CLR Ri +R1=STARTING DATA 
2109 012366 012702 001500 MOV #1500, R2 +RZ=CHARACTER COUNT 
2110 012372 110123 DAT4YA: MOVB R1, (R3)+ +LOAD BUFFER 
2111 012374 105201 INCE R1 ;BUMP DATA 
2112 012376 005302 DEC RZ +SEE IF DONE 
2113 012400 001374 BNE DAT4HA ;1F NOT: BR 
he 012402 000167 177646 JMP DS1 + RETURN 
211 
2116 
ate SCOPE LOOP ON ERROR SUBROUTINE XXXXXX44X% 
11 
2119 01240¢€ 004767 001336 SCOPE: JSR PC, CKSWR CHECK FOR CNTL G 
2120 012412 000240 NOP 
2121 012414 032777 O4YOOCO 166216 BIT #40000. dSWR +SEE IF LOOP ON ERROR 
2122 012422 001001 BNE SCOPE 1 > 1F SO: BR 
2123 012424 000207 RTS PC ELSE EXIT 
2124 012426 000240 SCOPE1: NOP 
2125 012430 005767 166336 TST SCOLP ;SEE IF SCOPE ADDRESS 
2126 012434 001001 BNE SCOPE2 ;1F NOT: BR 
2127 012436 000207 RTS PC ELSE EXIT 
2128 012440 005726 SCOPE2: TST (SP )+ ; RESET STACK 
2129 012442 005726 TST (SP )+ 
- 012444 000177 166322 JMP aSCOLP ;LOOP ON ERROR 
131 
2132 7 TEST ITERATION SUBROUTINE XXXXKAKKEK 
2133 
2134 012450 004767 001274 ITER: JSR PC, CKSWR CHECK FOR CNTL G 
tg 012454 000240 NOP 
136 
2137 ; KKKKA KAKA AKA A AAA A AAA AAA RA AAA A AAA AAA AAA AAA AAAS 
2138 ; CHECK FOR END OF PASS INDICATOR 
2139 ; SET FOR QUICK VERIFY 
2140 
2141 012456 005767 166354 TST PAFLG +PASS FLAG SET? 
2142 012462 001404 BEQ ITERO +BRANCH - IF NO 
2143 ; KK AAKKAKA AA AAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AEE 
2144 
2145 012464 032777 010000 166146 BIT #10000, dSUR +SEE IF ITERATIONS 
2146 012472 001403 BEQ ITER1 7 1F SO: BR 
2147 012474 005067 166260 ITERO: CLR 1 TCNT +CLEAR ITERATION COUNTER 
2148 012500 000207 RTS PC ELSE EXIT 
2149 012502 005267 166252 ITER1: INC 1TCNT BUMP COUNTER 
2150 012506 026767 166246 166142 CMP I TCNT, I TANT +SEE IF DONE ALL 
2151 012514 001767 BEQ ITERO + IF SO: BR 
2152 012516 005726 TST (SP )+ RESET STACK 
2153 012520 017700 166250 MOV I TRLP.RO ;SET ITERATION POINTER 
2154 012524 006110 JMP (RO) GO ITERATE 
2155 


2156 > INITIALIZE SUBROUTINE XX4XXKEEKS 


L 5 
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2158 012526 000240 INIT1: NOP 

2159 012530 012777 OO0040 166052 MOV #40, a0CS + INIT 

2160 012536 016777 166146 166044 INIT2: MOV DRVN, aCS +; SELECT DRIVE 
2161 012544 016777 166142 166060 MOV SLYN, dTC +; SELECT SLAVE 
2162 012552 000207 RTS PC + RETURN 


m5 
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Pil 


012554 
012556 
012560 
012562 
012564 


012570 
012572 
012574 
012576 


012600 
012602 
012610 
012612 
012616 
012620 
012624 
012630 
012634 
012640 
012644 
012646 
012652 
012656 
012660 
012662 
012666 
012670 
012676 
012702 
012706 
012710 
012714 


000240 
022626 
000240 
000240 
000177 


000240 
000240 
000240 
600002 


000240 
032777 
001020 
005767 
001006 
005267 
016704 
004767 
012704 
004767 
010103 
004767 
005777 
100001 
000000 
004767 
022626 
012767 
004767 
005767 
001402 
000167 
000167 


166154 


020000 
166066 


166060 
166056 
000320 
015276 
000310 


000446 
165762 
001062 
003444 
177504 
166112 


167062 
170530 


166030 


166074 


MT INT: 


TTINT: 


TRAP: 


TRAP 1: 


TRAP 2: 


TRAP X: 


TRAP Xx: 


*+MAG TAPE INTERRUPT HANDLERKXEXKRK4%% 


NOP 


(SP)+, (SP)+ 


ORTRN 


+RESET STACK POINTER 


RETURN TO CALLER 


TTY INTERRUPT HANDLERXEAKKEKEKE 


;BUS ADDRESS TRAP HANDLERAXKAKXKKKX 


J 
JMP 


#20000, dSWR 
TRAP2 


HDRFL 
TRAP 1 
HDRFL 
EMADOR, R4 
PC, TTOUT 
#MSG24, R4 
PC, TTOUT 


PC, CKSWR 
(SP)+, (SP)+ 
#F TIA, SCOLP 


+SEE IF SHOULD PRINT ERRORS 
+ 1F NOT: BR 

+SEE IF DONE HEADER 

+ 1F SO: BR 

;ELSE SET HEADER FLAG 


PRINT HEADER 
; PRINT ERROR 


PRINT ADDRESS OF TRAP 
;SEE IF HALT ON ERROR 
;1F NOT: BR 


CHECK FOR CNTL G 
RESET STACK 
SET SCOPE ADDRESS 
+GO SEE IF SCOPE LOOP 
;SEE IF INITIAL ADDRESS TEST 
+ 1F NOT: BR 
7ELSE REDO ADDRESS REQUEST 
>RETUPN TO TEST 1 


SEQ 0064 
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012720 
012724 
012726 
012732 
012740 
012742 
012746 
012750 
012754 
012762 
012764 
012770 
012776 
013000 
013004 
013010 
012012 
013014 
013016 
013020 
013022 
013024 
013032 
013036 
013040 
013042 
013044 
013046 
013052 
013054 
013056 
013062 
013064 


005067 
005000 
004767 
122767 
001005 
005767 
001446 
000167 
122767 
101402 
000167 
122767 
101002 
000167 
005267 
000241 
006100 
000241 
006100 
000241 
006100 
042767 
056700 
005301 
001332 
020092 
101402 
000167 
020300 
101402 
000167 
010015 
000207 


166024 


000152 
000015 


166002 


000066 
000060 


000076 
000070 


000062 
165740 


177770 
165642 


po0014 


000004 


165740 


165716 


165702 


165646 


TTR: 
TTRO: 


TTR1: 


TTRIA: 


TTRIB: 


TTR2: 


TTR3: 


TTR4: 
TTRS: 


N 5 
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+ RAEXEASAAAAAAAAA AAA AAA AAA AAA AAA AA AAA AAA AAA AAA AAS AES 
*TTY ENTRY SUBROUTINE: 


+ THIS SUBROUTINE 1S USED BY THE TEST CONDITION 
*ENTRY ROUTINE TO READ THE RESPONSE ENTERED 

+AT THE TTY AND CHECK THEM FOR LEGALITY AND 
+LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 

+ (0-7) AND MUST FALL WITHIN THE LIMITS SET BY 

+ THE CALLING ROUTINE. 

7 1F AN ENTRY 1S ILLEGAL OR OUTSIDE THE LIMITS, 
7A QUESTION MARK 1S TYPED (7) AND THE RESPONSE 
+MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
s+MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
+ CARRIAGE RETURN 

 MAERAAAAAAAAA LARA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAA EE 


oe al *CLEAR FIRST CHARACTER FLAG 
L 

JSR PC, TTIN :GO — CHARACTER 

CMPB #15,TIB +SEE IF CR 

BNE TTR1 i iF NOT: BR 

TST TEMP 1 +SEE IF FIRST CHARACTER 

BEQ TTRS ; SO: BR 

JMP TTRZ *ELSE GO LOAD VALUE 

CMPB #60, TIB +SEE IF CHAR IS LESS THAN 0 
BLOS TTRIA + 1F NOT: BR 

JMP TINER *ELSE GO TO ERROR 

CMPB #70. TIB +SEE IF CHAR IS GREATER THAN 7 
BHI TTR1B + 1F NOT: BR 

JMP TINER *ELSE GO TO ERROR 

INC TEMP 1 >SET FIRST CHARACTER FLAG 
CLC 

ROL RO 

CLC 

ROL RO SHIFT 3 LEFT 

CLC 

ROL 

BIC #177770. TIB STRIP ASCII 

BIS T1B. RO *LOAD CHARACTER 

DEC R1 * SEE 1F DONE 

BNE TTRO 7 1F NOT: BR 

CMP RO, RZ ; SEE IF EXCEEDED MAXIMUM LIMIT 
BLOS TTR3 + 1F NOT: BR 

JMP TINER *ELSE GO TO ERROR 

CMP R3,RO +SEE IF BELOW MINIMUM LIMIT 
BLOS TTRY > 1F NOT: BR 

JMP TINER *ELSE GO TO ERROR 

MOV RO, (R5) *LOAD VALUE 

RTS PC 7EXIT 


SEQ 0065 


. 8 6 
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013066 
013072 
013076 
013102 


013104 
013110 
013114 
013120 
013122 
013130 
013136 
013142 
013144 
013152 


013154 
013160 
013166 
013170 
013176 
013200 
013204 
013206 
013214 
013220 
013224 
012230 
013234 
013236 
013240 
013246 
013252 
013256 
013260 
013262 
013266 
013270 
013274 
013276 
013304 
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012704 
004767 
162716 
000207 


005077 
005077 
105777 
100375 
017767 
042767 
105777 
100375 
116777 
000207 


112467 
122767 
001446 
122767 
001403 
004767 
000763 
112767 
004767 
012703 
005067 
004767 
005303 
001372 
112767 
004767 
105767 
106401 
000735 
005067 
000406 
105777 
100375 
116777 
000207 


015002 
000056 
000020 


165532 
165530 
165522 


165516 
177600 
165504 


165530 


165516 
000043 


000045 
000064 
000015 
000050 
000004 


165446 
000034 


000012 
000016 
165556 
165546 
165352 


165374 


165550 
165542 


165476 


165510 
165500 


165462 


165430 


165344 


TINER: 


TTIN: 


TTIN2: 


TTOUT: 


TCRLF: 


TCRLFA: 


+ TTY ENTRY ERROR SUBROUTINE XXRKKEXEKE 
MOV #MSG7,R4 


JSR PC, TTOUT +PRINT? 
SUB #20, (SP) ;RESET SP TO START OF VALUE ROUTINE 
RTS PC REDO VALUE ENTRY 
+ TTY READ SUBROUTINE XKXEXEAERE 
CLR aTKS 
LR aTKB 
TSTB aTKS 
BPL -§ 


Mov dTKB, TIB 
BIC #177600, T1B 
aTPs 


TSTB 

BPL TTIN2 
MOVB TIB, dTPB 
RTS PC 


+ TTY OUTPUT SUBROUTINE XXKKKAEKKKEX 


MOVB (R4)+, TOB 
CMPB #43, TOB : 


BEQ TEX 
CMPB #45, TOB 
BEQ TCRLF 
JSR PC, TOG 
R TTOUT 
MOVB #15, TOB 
JSR PC, TOG 
MOV #4,R3 
CLR TOB 
JSR PC, TOG 
DEC R3 
BNE TCRLFA DO FILLERS 


TSTB ROSW 

BMI 1% 

BR TTOUT 
CLR ROSW 

BR TEX 

TSTB aTPS 

BPL TOG 

MOVB TOB, dTPB 
RTS Pe 
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013306 
013314 
013316 
013320 
013324 
013326 
013330 
013334 
013340 
013344 
013346 
013352 
013356 
013362 
013364 
013370 
013372 
013374 
013376 
013400 
013402 
013404 
013410 
013412 
013414 
013416 
013422 
013424 
013426 
013430 
013432 
012436 
013440 
013442 
013444 
013446 
013452 
013454 
013460 
013466 
013472 
013474 
013500 
013502 
013506 
013510 
013512 
013516 
013522 
013526 
013532 
013534 
013536 
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012767 
010304 
000410 
005067 
010304 
001004 
004767 
000167 
032704 
001406 
012704 
004767 
000167 
005004 
004767 
010304 
006004 
006004 
CO6004 
0060904 
000304 
004767 
010304 
006004 
000304 
004767 
010304 
006104 
006104 
000304 
004767 
010304 
006004 
006004 
006004 
004767 
010304 
004767 
012767 
004767 
000297 
042704 
001004 
005767 
001001 
000207 
005267 
052704 
010467 
004767 
010304 
006207 
000000 


12: 39 


000001 


000212 


000162 
000120 
100000 
000001 
000116 
000006 


000104 


000064 


000052 


000036 


000022 


000014 
000240 
177576 


177770 
000030 
000020 
000260 


165150 
177536 


000222 


165210 


OCTPE: 


OCTP: 


OCTPE1: 


OCTPO: 


OCTP1: 
OCTP2: 


OCTP3: 


OC TPG: 


OC TPGO: 
OCTPG!: 


OF L: 


05-DEC-77 


C 6 
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SOCTAL OUTPUT SUBROUTINE XXXXXKXKEKEX 


PC, OCTPG1 
OCTP3 


#240, TOB 
PC, TOG 


PC 
#177770, R4 


OCTPGO 
OFL 
OcTPGO 
PC 


OFL 
#260, R4 
R4, TOB 
PC, TOG 
R3,R4 
PC 


tS ++ al 


CLEAR FLAG FOR LEADING ZERO 
;SEE IF NUMBER IS ZERO 

+ 1F NOT ZERO: BR 

+ELSE PRINT ZERO 

+ SPACE AND EXIT 

+SEE IF MSD = 1 

7 IF NOT: BR 


*PRINT 1 


>PRINT O 


POSITION DIGIT 


;PRINT DIGIT 2 


PRINT DIGIT 3 


/PRINT DIGIT 4 


PRINT DIGIT 5 


;PRINT SPACE 
,EXIT 


>FIRST CHAR FLAG 


SEQ 0067 


D 6 
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yt DATA CHARACTER OUTPUT SUBROUT INEXRXRXEKKKKKE 
2363 013540 005067 165132 DOUT: CLR TOB 

2364 013544 012704 000010 MOV #10,R4 + SET NUMBER TO PRINT 
2365 013550 110367 165122 MOVB R3, TOB 

2366 013554 105777 165066 DOUT1: TSTB aTPS 

2367 013560 100375 BPL DOUT1 

2368 013562 132767 000200 165106 BITB #200, TOB 

2369 013570 001404 BEQ DOUT2 

2370 013572 012777 000061 165050 MOV #061, aTPB 

2371 013600 000403 BR DOUT3 

2372 013602 012777 O00060 165040 DOUT2: MOV #060, dTPB 

2373 013610 O0€167 165062 DOUT3: ROL TOB 

2374 013614 005304 DEC RY 

2375 013616 001356 BNE DOUT1 

2376 013620 000207 RTS PC 

2377 013622 016703 165126 DOUTD: MOV TEMP3,R3 

2378 013626 000303 SWAB R3 

2379 013630 004767 177704 JSR PC, DOUT 

2380 013634 016703 165114 MOV TEMP3,R3 

2381 O13640 CO4767 177674 JSR PC, DOUT 

$4) 013644 000207 RTS PC 

yo >TUI6/TE16 SERIAL NUMBER PRINT SUBROUTINE XX#XX4XX4% 
2386 013646 010304 SNPT: MOV R3,R4 

2387 013650 000304 SWAB RY 

2388 013652 006004 ROR RY 

2389 013654 006004 ROR RY 

2390 013656 006004 ROR RY 

2391 013660 006004 ROR R4 *GET FIRST DIGIT 
2392 013662 004767 000036 JSR PC, SNPG +GO PRINT 

2393 013666 010304 MOV R3,R4 

2394 0123670 000304 SHAB RY +GET SECOND DIGIT 
2395 013672 004767 000026 JSR PC, SNPG GO PRINT 

2396 013676 010304 MoV R3,R4 

2397 013700 006004 ROR R4 

2398 013702 006004 ROR R4 

2399 01370% 006004 ROR R4 

2400 013706 006004 ROR R4 GET THIRD DIGIT 
2401 013710 004767 000010 JSR PC, SNPG GO PRINT 

2402 013714 010304 MOV R3,R4 GET FOURTH DIGIT 
2403 013716 004767 000002 JSR PC, SNPG +GO PRINT 

2404 013722 000207 RTS PC EXIT 

2405 013724 012767 000260 164744 SNPG: MOV #260, TOB +SET BASE = 0 

2406 013732 042704 177760 BIC #177760, R4 MASK DIGIT 

2407 013736 050467 164734 BIS R4, TOB *SET ASCII 

2408 013742 004767 177322 JSR PC, TOG + TYPE DIGIT 

ner 013746 000207 RTS PC + RETURN 

241 

2411 ;CKSWR ROUTINE THAT ALLOWS THE LOADING OF LOC. 176, SWREGHXXXKKEKKE 
2412 >FROM THE TTY AT SELECTED POINTS WITHIN THE PROGRAMKAAKKKKEEE 
2413 

2414 013750 022767 000176 164662 CKSWR: CHP #SWREG, SHR ; SOFTWARE SWITCH REG PRESENT 
2415 013756 001041 BNE OUT 7;NO, GET OUT 


2416 013760 105777 164656 TSTB aTKS > YES,WAIT FOR 








E 6 
CZTUBGO TMOZ - TUI6/TE16 hig ie MACY11 30(1046) 12:40 PAGE 69 


CZ2TUBG. P11 05-DEC-77 


013764 
013766 
013774 
014002 
014010 
014012 
014016 
014022 
014026 
014032 
014036 
014042 
014046 
014052 
014056 
014062 


014064 
014070 
014076 
014102 
014110 
014116 
014120 
014122 
014124 
014132 
014134 
014142 
014146 
014154 
014156 
014160 
014162 
014170 
014172 
014200 
014202 
014206 
014212 
014214 
014220 
014224 
914230 
014236 
014244 
014250 
014252 
014254 
014262 


100036 


000207 


005067 
012767 
004767 
042767 
122767 
001002 
005726 
000737 
122767 
001013 
012767 
004767 
022767 
001037 
005726 
000740 
122767 
003004 
122767 
003005 
012704 
004767 
000742 
006367 
006367 
006367 
142767 
156767 
005367 
001754 
000711 
016777 
000735 


164652 
177600 
000007 


017601 
177132 
017605 
177122 
164602 
177244 
017614 
177102 
001030 
000002 


164740 
000007 
177002 
177600 
000025 


000015 


000200 
177040 
000007 


000060 
000067 


017@24 
176742 


rovers 
164604 
164600 
000060 
164436 
164562 


164550 


164704 
164676 
164670 


164734 


164570 
164562 


164546 


164672 


164656 


164510 
164500 


164442 
164564 


164356 


CNTLU: 


OUT: 


SREAD: 


1$: 


33: 


23: 


8S: 


4S: 


5S: 


6S: 


05-DEC-77 SEQ 0069 
BPL QUT ;READY, GET CHARACTER 
MOV aTKB, TIB AND STRIP OFF 
BIC #177600. TIB ; THE GARBAGE 
CMP #7,TIB ;1S ITA % G 
BNE OUT 
MOV #SCNTG, R4 
JSR PC, TTOUT 
MOV #SMSWR, RY 
JSR PC, TTOUT 
MOV ASHR, RS 
JSR PC, OCTPE 
MOV #SMNEW, RY 
JSR PC, TTOUT 
CLR O# TEMPST 
JSR PC, SREAD GO READ A LINE 
RTS PC ;RETURN TO MAIN BODY OF PROGRAM 
CLR TEMPST 
MOV #7, COUNT 
JSR PC, TTIN *GO READ A CHARACTER 
BIC #177600, TIB STRIP OFF GARBAGE 
CMPB #25, TIB ;1S ITA U? 

BNE 23 +BRANCH IF NOT 
TST (SP )+ ;POP THE STACK 
BR CNTLU START OVER 
CMPB #15,TIB -1S IT A <CR>? 
BNE 4S BRANCH IF NOT 
MOV #200, ROSW 

JSR PC, TCRLF 7ECHO IT WITH <LF> 
CMP #7, COUNT >WAS IT FIRST CHARACTER 
BNE 7$ ; CHANGE SWR IF NOT FIRST ONE 
TST (SP )+ ;POP THE STACK 
BR OUT GET OUT 
CMPB #60. TIB 
BGT 5% 

CMPB #67,T1B 
BGT 6$ 
MOV #SQUEST, RY 

JSR PC, TTOUT 
BR 3$ >START OVER IF NOT LEGAL CHARACTER 
ASL TEMPST 
ASL TEMPST 
ASL TEMPST 
BICB #60, TIB »GET NITTY-GRITTY 
BISB TIB, TEMPST 
DEC COUNT ;ONLY WANT 6 DIGITS 
BEQ 53 
BR 1$ 
MOV TEMPST, dSWR CHANGE SWITCH REGISTER CONTENTS 
BR 8$ 


CZTUBGO TMOZ - TUI6/TE16 BSC FC 


C2TUBG. P11 


2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2434 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 


014264 
014270 
014274 
014276 
014302 
014310 
014312 
014316 
014320 
014324 
014332 
014334 
014340 
014342 
014346 
014350 
014354 
014362 


O5-DEC-77 12: 39 


005067 
005737 
001417 
005267 
023737 
001403 
105267 
000421 
105267 
052777 
000413 
105737 
001003 
105267 
000402 
105267 
052737 
000207 


164400 
000042 


164366 
000042 


164355 


164346 
104000 


000041 
164326 


164321 
020000 


MACY11 30(1046) 


000046 


164206 


000052 


, 
’ 


, 


CKMODE: 


F 6 
O5-DEC-77 12:40 PAGE 70 


KAAAAAAAARAAAAAAAAAA AAAS AAA AAA AAA AAA AAA AAA AAA AA AAA ATS 
CHECK FOR DUMP MODE OR AUTO MODE 
KAKAAAAAAAAAAA AA AAA AAA AAA AAA AAA ALAA AAA AA AAA AA AAA AAA EY 


SEQ 0070 


CLR AUTON + INIT AUTO MODE 

TST O#42 ;AUTO MODE? 

BEQ 23 ;BRANCH - IF NOT 

INC AUTON SET AUTO MODE INDICATORE 

CMP O42, #46 >ACT11 MODE? 

BEQ 1$ >BRANCH - IF YES 

INCB XXDPM Be ape XXDP AUTO MODE 

BR 5% + AND EX 

INCB ACTI1M INDICATE ACT11 AUTO MODE 

BIS #104000, dSWR ;SET FOR CON: CYCLE & HALT ON ERROR 
BR 5% AND EXIT 

TSTB a#41 ;MAN: MODE VIA ACTI1/7PAPER TAPE? 
BNE 3$ BRANCH - IF NOT 

INCB ADUMPM ; INDICATE MAN: MODE VIA ACTI1/PAPER TAPE 
BR 4% AND EXIT THRU M. | 

INCB XDUMPM ; INDICATE MANUAL MODE VIA XXDP 


BIS #20000, d#52 ;ALLOW MANUAL INTERVENTION 
RTS PC ; RETURN 


JOOS ICIS 


CZTUBGO TMOZ2 - TUI6/TE16 BSC FC MACY11 30(1046) 


C2TUBG 
2494 


Pu 


014364 
014364 
014366 
014372 
014376 
014402 
014404 
014410 
014414 
014416 


O05-DEC-77 12: 39 


000005 
012704 
004767 
105767 
001405 
012700 
005037 
004710 
000777 


014476 
176556 
164271 


000042 
000042 


05-DEC-77 


G 6 
12:40 PAGE 71 SEQ 0071 


KAXKAAAAAA AAA AAA AAA AAA A AAA AA AAA AAA AAA AAA AAA AAA ATES 
DISCONTINUE TESTING FOR 

ILLEGAL CONDITIONS 
KEKSAAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 


RESET 
MOV 
JSR 
TST8 
BEQ 
MOV 
CLR 
JSR 
BR 


> INITIALIZE THE WORLD 
;GET ABORT MESSAGE 

; TYPE ABORT MESSAGE 

;XXDP AUTO MODE? 

;BRANCH - IF NOT 

;GET MONITOR EXIT ADDRESS 
;USE AS ABORT FLAG 

;EXIT TO XXDP MONITOR 
;AND HANG 


JOO In 

























































2512 


C2TUBG. P11 


014420 
014426 
014434 
014442 
014450 
014456 
014464 
014472 
014476 
014504 
014512 


014520 
014526 
014534 
014542 
014550 
014556 
014564 
014572 
014600 
014606 
014614 
014622 
014624 
014632 
014640 
014646 
014654 
014662 
014670 
014673 
014700 
014706 
014714 
014722 
014726 
014734 
014742 
014750 
014751 
014756 
014764 
014772 
015000 
015002 
015006 
015010 
015016 
015024 
015032 
015040 
015046 


050045 
046501 
041101 
037440 
040515 
O44440 
042526 
027116 
050045 
046501 
052122 


041445 
020040 
020040 
020040 
020040 
031123 


035122 





047522 
042040 
042514 
047040 
052516 
052116 
052116 
021445 
047522 
040440 
042105 


030523 
041527 
041040 
020040 
020040 
020040 
020040 
020122 
041524 
053505 
051105 


046524 


020124 


042526 
036440 
042116 
040520 


021440 


051517 
020116 
035122 
044522 
046525 
021440 


H 6 
CZTUBGO TMO2 - TUI6/TE16 BSC FC MACY11 30(1046) O5-DEC-77 12:40 PAGE 72 
O05-DEC-77 12: 39 


051107 
051511 
020104 
020117 
046101 
051105 
047511 


051107 
047502 
021445 


020040 
020040 
020101 
041506 
041440 
020040 
020040 
020040 
021445 
047111 
047522 


031060 
030525 
042524 
041523 
041450 
030107 


051105 
044504 
020123 
052103 


051511 
052123 
020075 


052103 
021440 
047440 
051523 


052111 
051105 
021440 
042526 
042502 


;MESSAGE TABLE XKExx 
; AAAAAAAAAAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAA AAAS 
MSGC: ASCII /%PROGRAM DISPBLED 7? NO MANUAL INTERVENTION. %#/ 


NSGD: -ASCi! ZZPROGRAM ABORTED%#/ 


$$ 0209200990250 09999 99550595 0555595222353552 022229239990 20 2993: 
BA FC CS2 / 


MSG1: -ASCII 7%CS1 WC 
.ASCII 70S ER TOK 
MSGe: - ASCII /%REWIND ERRORS / 
i) 
MSG3: -ASCI: /%%TMOZ - TU16 - TE16 BSC FC (CZTUBGO) %/ 


ASCII /ENTER CONDITIONS IN OCTAL%#/ 
MSG4: - ASCII 7“PEGISTER START = #/ 
MSGS: ASCII /%VECTOR = &.’ 


MSG6: - ASCII 7%END OF PASS #/ 


MSG?: mor #3 
MSG8: -ASCIL 7287 
MSG9: -ASCII ZZPOSITION ERROR: &.’ 


MSG1O: ASCII /%ORIVE NUMBER: #/ 


SEQ 0072 


Fhe TNO2 - auto aye A MACY11 30(1046) 


ZTUBG 


Pil 


015052 
015060 
015066 
015072 
015100 
015106 
015110 
015116 
015124 
015132 
015135 
915142 
015150 
015156 
015162 
015170 
015176 
015203 
015210 
015215 
015223 
015230 
015236 
015243 
015250 
015251 
015256 
015264 
015266 
015274 
015276 
015304 
015312 
015320 
015326 
015334 
015342 
015350 
015356 
015364 
015372 
015400 
015406 
015413 
015420 
015426 
015434 
015442 
015443 
015450 
015456 
015464 
015472 
015473 
015500 
015506 


05-DEC-77 


051445 
047040 
035122 
O53445 


047516 
020124 


040514 
046525 
021440 
044522 
051122 


040505 
042526 


051116 


042520 
050130 


053103 


051525 
035120 
035103 
035101 
035102 
044516 
020104 
046103 
044122 
020103 
042522 
054502 
020124 
051124 
020124 
020124 
044516 


051503 
020124 
020124 
044516 


046104 
020124 
043 


042526 
042502 


042524 
051117 


020104 
051522 
047522 


042101 
040527 
051122 


042524 


043 
020132 
021440 
035124 


035104 


052040 
021440 
021440 
021440 
021440 
020124 


020124 


020062 
042522 
054502 
020124 


020124 
042523 


MSG11: 


MSG12: 


MSG13: 


MNSG14: 


MSG15: 


MSG16: 


MSG1?: 


MSG20: 


MSG21: 
MSG22: 


MSG23: 
MSG24: 
MSG25: 
MSG26: 


MSG27: 
MSG28: 


MSG29: 


MSG30: 


MSG31: 


MSG32: 


| 6 
O5-DEC-77 12:40 PAGE 73 SEQ 0073 


. ASCII 


ASCII 


. ASCII 


ASCII 


. ASCII 


. ASCH 


ASCII 


ASCII 


7ZSLAVE NUMBER: #7 


7ZWRITE ERROR #/ 


7ZREAD REVERSE ERROR #7 


7ZREAD FORWARD ERROR &/ 


7“ZWRITE TM ERROR #7 


7AREVERSE ERROR #7 


/%FORWARD ERROR #7 


7 NRZ #7 


7 PE #7 
7 EXPT: &7 


7 RCVD: #7 
7%BUS TRAP: #/ 


ZUWC: #7 
7%BA: #7 
7“%DB: #7 
7%\NIT DID NOT CLEAR RH &/ 


7%SC NOT RESET BY INIT #7 


7%TRE NOT RESET BY INIT #7 


7%CS2 NOT RESET BY INIT #/ 


7%DLT NOT SET &/ 


CZTUBGO TNOZ2 - Mes hat Sg BSC FC MACY11 30(1046) 
C2TUBG. P11 O5-DEC-77 12: 39 


015511 045 
015516 052117 
015524 021440 
015526 
015534 
015542 
015544 
2631 015552 
015560 
015566 
015571 045 
015576 
015604 
015612 
015620 
015626 
015634 
2641 015642 
015650 
015656 043 
015657 045 
015664 
015672 
015700 
015706 
015711 ous 
015716 
015724 
015731 045 
015736 
015744 
015752 
015760 
015764 
015772 
016000 
016005 040 
2661 016012 
016020 
016026 
016034 
016042 043 
016043 04S 
016050 
016056 
016064 
016072 
016100 
016106 
016112 
016120 
016126 
016134 
016142 043516 043 
016145 045 042523 
016152 050125 053440 


041523 
051440 


042522 
051440 


020122 


047040 
052105 


047040 
052105 


047516 
020124 
044516 


047040 
051505 
020131 
021440 
047516 
042523 
030440 
020117 
020131 


047040 
052105 
044523 
046125 


020104 


MSG33: 
MSG34: 


MSG35: 


NSG36: 


MSG37: 


046111 
051124 


051117 MSG38: 


MSG39: 
MSG4O: 


043040 


042455 MSG41: 


MSG4 2: 


é MSG4 3: 
020072 


051501 
042101 
042520 
042526 
045503 
051101 


042523 
020104 
044522 
047522 


026524 
044522 


047516 


051105 
042510 
047516 
044524 
042510 


MSG44- 


MSG4S: 


MSG4e: 


05-DEC-77 


. ASCII 


. ASCII 


ASCII 


ASCII 


ASCII 


. ASCII 


. ASCII 


- ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


. ASCII 


. ASCII 


ASCII 


J 6 
12:40 PAGE 74 
7%SC NOT SET #7 
7%TRE NOT SET #7 


7%4\R NOT SET BY INIT #7 
7%ZOR NOT RESET BY INIT #7 


7Z0OR NOT RESET BY 1 SILO ENTRY #7 


/%OR NOT SET BY SILO FULL #/ 


7%BAD SILO READ #/ 


7“%1R NOT RESET BY SILO FULL#/ 


/ NON-EXIST DRIVER? 
7 NON-EXIST SLAVER/ 
/ SERIAL NO: #/ 


/“%ERASE HEAD INOPERATIVEY 


/%CHECK POLAR ITY#/ 


7“ERASE HEAD POLARITY WRONG#/ 


/%SET-UP WRITE ERRORS 


SEQ 0074 


CZTUBGO TMOZ - TUI6/TE16 BSC FC MACY11 3011046) 


CZ2TUBG. 


Pil 


016160 
016166 
016171 
016176 
016204 
016212 
016216 
016224 
016232 
016240 
016243 
016250 
016256 
016264 
016271 
016276 
016304 
016312 
016320 
016326 
016327 
016334 
016342 
016350 
016356 
016363 
016370 
016376 
016402 
016410 
016416 
016424 
016426 
016434 
016442 
016450 
016456 
016464 
016472 
016500 
016501 
016506 
016514 
016515 
016522 
016525 
016532 
016540 
016541 
016546 
016554 
016562 
016570 
016576 
016604 
016610 


O5-DEC-77 12: 39 


042524 


051045 


042440 
043 
050123 


044522 


047516 
043040 
042522 
020116 
052105 
041524 
051117 
021440 
040514 
052117 
046040 


042522 
046123 
047524 
044514 
043105 
047503 
044525 


051116 
054514 


052111 

043 
046524 
051440 


044505 
052040 
047516 
051501 
020122 
051120 
021515 
030510 


051122 


041501 
053522 
051195 


042503 
051105 
051122 


043106 


042105 
042524 


041040 
047522 
042101 
051120 

043 
044440 
042522 


042526 
047440 
047111 


042523 
053101 
047440 
042516 
051117 
052116 
043516 


020132 
020072 


051105 


047040 
052105 


044124 
050101 
020124 
042105 
050117 
041117 


020061 


MSG47: 


MSG48: 


NSG49: 


MSGS5O: 


MSG51: 


MSG52: 


MSG53: 


MSG54: 


MSGSS: 


MSGS6: 
MSGS57: 


MSG6O: 


MSG61: 


K 6 
O5-DEC-77 12:40 PAGE 75 


. ASCII 


. ASCII 


ASCII 


. ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 
. ASCII 


. ASCII 


ASC! 


7%SPACE FORWARD ERROR#/ 


7%SPACE REVERSE ERRORS/ 


7“BUFFERED WRITE ERRORS/ 


7“BOT SET AFTER BUFFERED WRITER/ 


7%NO BOT FROM READ IN PRESET&/ 


7%TC INCORRECT #7 


/“%SLAVE NOT OFF LINER/ 


/UURESET SLAVE TO ON LINE BEFORE CONTINUING#/ 


Z*ANRZ ONLY. #7 


7 ITER: #7 
7%TM NOT SET&/ 


/“%EITHER TAPE NOT ERASED OF OP! PROBLEM&/ 


/%RH11 OR RH70: #/ 





SEQ 0075 


L 6 
CZTUBGO THOZ2 - TU16/TE16 BSC FC MACY11 30(1046) O5-DEC-77 12:40 PAGE 76 


C2TUBG. P11 


016616 
016624 
016630 
016636 


O05-DEC-77 12: 39 
051040 033510 
021440 

020110 0471 
043 


051117 
035060 
051045 
054514 


020072 


17 MSG62: .ASCII /%RH ONLY: &/7 
4 


SEQ 0076 


M 6 
CZTUBGO TMOZ - TU16/TE16 BSC FC MACY11 30(1046) O5-DEC-77 12:40 PAGE 77 
C2 05-DEC-77 12: 39 


TUBG. 


Pil 


016643 


017264 


O45 
051072 
051104 


022445 


043045 


020124 


043045 
030510 
047514 
020124 


043045 
036510 
047514 
020124 


043045 
030510 
047514 
020124 


043045 
044122 
046111 
052123 


052106 
050117 
021524 
052106 
053505 
042524 


04 3045 
051127 
042522 
051505 
052106 
040520 
051505 
052106 


030524 
042101 
044523 


035062 


051505 


032124 
020061 
052040 
020061 


032524 
020061 
052040 
020062 


033124 
020061 
052046 
020063 


033524 
020061 
052040 
020064 


030524 
030461 
020117 
032440 


030461 
052040 


031061 
047111 
052123 


030524 
052111 
042101 
021524 
032061 
042503 
021524 
032461 


MSF T1: 


MSF T2: 


MSF T3: 


MSF T4: 


MSF TS: 


MSF T6: 


MSF T7: 


MSF T10: 
MSFT11: 
MSF T12: 
MSF T13: 


MSFT14: 


MSF T15: 


+ TEST HEADERSXEXEX 


. ASCII 


. ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


. ASCII 


ASCII 


. ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


7%4F TI: RH ADDRESSING #7 


742F TZ: RH REGISTER BITS TEST #7 


74AFT3: RH INITIALIZE TEST #7 


7“2F TH: RH11 SILO TEST 1 #7 


747F TS: RH11 SILO TEST 2 #/ 


7447 16: RHi1l S!LO TEST 3 #7 


/“4“FT7: RH11 SILO TEST 4 #7 


/4AF TIO: RH11 SILO TEST 5 #/ 


/%“ETL1: NOP TEST#/ 


/4AFE TAZ: REWIND TESTR/ 


/4%AFTA3: WRITE-READ TEST#/ 


7%4F T14: SPACE TEST#Z 


/%AF TAS: ERASE TESTA/ 





SEQ 0077 


CZTUBGO TNOZ - TUI6/TE16 Dig he MACY11 30(1046) 


C2TUBG. P11 


017272 


017545 
017552 
017560 
017566 
017574 
017601 
017605 
017612 
017614 
017622 
017624 


017630 
021342 


05-DEC-77 


042472 


022477 


017630 
000000 
021342 
000000 


000001 


040522 


042524 


052106 
040522 


053523 
042516 
043 


042523 


042524 
030524 


052123 


030462 
042523 


042522 
042524 


031124 


036522 
036527 


MSF T16: 


MSFT17: 


MSF T20: 


MSFT21: 


MSF T22: 


MSF T2323: 


MSF T24: 


SCNTG: 
SMSWR: 


SMNEW: 


SQUEST: 


WDATA: 
RDATA: 


05-DEC 


. ASCII 


. ASCII 


ASCII 


. ASCII 


. ASCII 
ASCII 
ASCII 


ASCII 
. ASCII 


. ASCII 
ASCII 


_ EVEN 
0 

=, +1510 
0 : 


. END 


N 6 
-77 12:40 PAGE 78 


/%4F T16: TAPE MARK WRITE-READ TEST#/ 


744FT17: TH SPACE TEST #/ 


/%4F 720: WRITE CHECK TEST #/ 


7%27F 121: ERASE HEAD TEST#/ 


7%2%F 122: BUFFERED COMMAND TEST&/ 


/4%4FT23: READ 'N PRESET TEST#/ 


7%AFTZ4: REWIND-OFF LINE TEST#/ 


7% GRC 
ZXSWR= 87 


7 NEW= &/ 
LUR/ 


SEQ 0078 


. 2 
CZTUBGO TMOZ2 - TUI6/TE16 BSC FC MACY11 30(1046) O5-DEC-77 12:40 PAGE 80 SEQ 0079 


CZTUBG. P11 05-DEC-77 12: 39 CROSS REFERENCE TABLE -- USER SYMBOLS 

ABORT 014364 851 25008 

ACT11M 000672 7158 876 2481% 

ADUNPM 000674 717% «=62486% 

AS 000616 685% 

AUTOM 000670 7148 844 924 968 1016 1108 1135 1141 2473k 2476% 

BA 000604 680% 1183 1947xk 2033 

BADDR 000714 7308 861441K 1459K 1483k 1492k 1493x 1500% 1576k% 1639K 1723% 1770K 1782% 1787% 
1806*% 1823k 1855% 1889k 1947 

BRE 000634 692% 1056 

BTRP 000664 7078 «=©1153k 1163% 

BTRP2 000666 7088 1154% 

cc 000620 686k 

CKMODE 014264 843 24738 

CKSWR 013750 1084 1144 1386 1623 2048 2119 2134 2196 24148 

CNTLU) 014022 867 24248 862441 

CONT1 002334 935 9568 

CONTZ2 002526 979 10028 

COUNT 001032 769% 2435x% 2446 242k 

CRCNT 001012 7618 

cs 000610 6828 94 3x 948x 950 956% 957% 959 1002k 1003k 1240x 1251 1280*% 1282 
Sel aren 1316 1322 1346 1350 1400 1414X 1419k 1423 1533k 1831% 2037 
2159% 160% 

C1 000600 aoe 908 949 958 1156 1243 1247 1284 1286 1863x% 1927k 1954% 1973% 

DATAO § 001042 7768 

DATA1 001044 777% 

DATAZ 001046 7788 

DATAZ 001050 779% 

DATBL 001040 7758 2072 

DAT1 012324 776 20898 

DATIA 012330 2090% 2099 2104 

DATIB 012334 20918 2093 

DAT2 012346 777 20988 

DAT3 012354 778 21038 

DATY 012364 779 21088 

DATYA 012372 21108 2113 

OB 000622 6878 1192 1281 1315% 1320% 1342% 1355 1397*% 1416k 1420% 1421 1422 

DOUT 013540 23638 2379 2381 

DOUTO § 013622 23778 

DOUT1 0613554 2366% 2367 2375 

DOUTZ2 013602 2369 23728 

DOUT3 013610 2371 23738 

DRIVE O00040 616% 

DRVN 000710 7288 930 941% 944 x 945 948 957 987 1003 2160 

DRVTP 000654 7038 

DS 000612 683% 1463 1864 1873 1900 1906 1931 1958 1977 1979 1992 1993 2039 

DSAV 000762 7498 =©1992k 2055 

DSUP 012232 1478 1769 1805 2067% 

DSO 012234 20688 

DS1 012254 20738 2094 2114 

DS2 012274 20778 2079 

DS3 012304 2074 20808 

DS4 012314 2082# 2084 

DT 000626 6898 995 997 1005 2073 

EMADDR 000706 7278 «=6©61152k 0 =61172k = 1212 1237% 1263 1279% 1304k 1338% 1370 1393k 1412% 1447% 


1465k 1476k 1521% 1637k 1666% 1702k 1766% 1802% 1851% 1886* 1925% 1981 2008 
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CZTUBG. P11 

ER 000614 
ERADD 000746 
ERCHK 011624 
ERPT 011650 
ERPTA 011740 
ERPTA1 011672 
ERPTB 011776 
ERPTB1 012010 
ERPTC 012040 
ERPTOD 012150 
ERPTG 011700 
ERPTX 012160 
ERPTXX 012170 
ERPTIA 011772 
ERRP 060724 
ERRP1 000726 
EXEC 011374 
EXECR 011446 
EXECB 011454 
EXECC 011474 
EXECX 011514 
EXECXA 011520 
EXECXX 011524 
EXFL 000776 
EXIT 003402 
FC 000606 
FCNT 000716 
FT1 003412 
FTIA 003444 
FT1B 003450 
FT1X 003462 
FT1XX 003506 
FT10 005166 
FT10A 005222 
FTIOER 005306 
FT10X 005264 
FT10XX 005302 
FTil 005322 
FT12 005440 
FT12A 005520 
FT13 005552 
FT13A 005624 
FT13B 005666 
FT13C §©=—6. 005746 
FT130 006014 
FT13E 006066 
FT13x 006100 
FT14 906104 
FTI4A =—600 96156 


15178 
15208 


ae 4 
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1200% 1215 
1348x 1352% 
1497 1505 
1777 1784 


1495x 1502x 
1752k 1776% 
2062% 


1496 1504 
1727 1742 
1897 19438 
1617 1835 


1481% 1526% 
1946 


1413 


1436 
1454 


1245% 


1536% 
1780% 


1534 
1775 


1837 
1541% 


1249% 


1554% 
1785x 


1553 
1783 


1840 
1542 


1255% 


1564% 
1812x 


1563 
1788 


1946% 
1669% 


1644 
1828% 


1578 
1811 


1952* 
1722% 


1290% 
1875% 
1659 
1872 


1657x 
1870% 


1586 
1814 


- 2035 


1771x 


1292% 


1674Xx 
2010 


1643 
1820 


— 1807% 


SEQ 0080 


1294% 
1915% 
1681 


1680% 


1655 
1827 


1818% 


1309% 
1934% 
1686 


1685*% 


1672 
1834 


1824x 


